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COAP  is  a  program  for  the  simulation  and  optimization  of  combative  and 
cooperative  ti.o-vehicle  flight  paths.  It  includes  single  vehicle  flight  path 
problem  capability  as  a  subcase.  Considerable  emphasis  is  placed  on  the  use  of 
modern  optimization. 

The  program  has  the  ability  to  perform  trajectory  optimization  by  the 
variational  rteepest-descent  method  including  search  for  optimal  initial  conditions; 
search  for  optimal  arc  (stage)  lengths;  constraints  defined  at  terminal  point, 
intermediate  corners  (stage  points),  or  along  the  path;  and  optimum  parameter 
(design  variable)  values.  The  program  can  solve  two  system  (vehicle)  problems 
with  or  without  reacting  feedback  from  the  second  system  (vehicle). 

illternat ively,  the  program  may  be  used  to  apply  the  direct  multivariab’ ; 
search  approach  to  trajectory  optimization.  A  variety  of  multivariable  search 
algorithms  are  available  in  this  mode  including  elemental  perturbation  (one 
parameter  at  a  time);  organized  first-  and  second-order  methc-db ,  and  randomized 
methods.  A  method  of  solution  for  problems  exhibiting  multiple  extremals  and  a 
procedure  for  the  location  of  saddle  points  is  also  included. 

Point  mass  equations  of  motion  for  a  two- vehicle  system  are  incorporated  in 
the  COAP  program.  Motion  takes  place  about  a  rotating  oblate  planet  having  up  to 
four  harmonics  in  its  gravitational  field,  non-uniform  atmosphere  (1939  or  1962 
AJKDC),  and  winds.  Auxiliary  computations  for  aerodynamic  heating  are  included. 

The  vehicles  may  have  arbitrary  and  independent  aerodynamic  and  propulsive 
characteristics.  If  desired  two  independent  sets  of  planetary  characteristics 
may  be  employ ed^ 
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13.  Abstract  (continued) 

Combative  logic  is  defined  in  terms  of  vehicle  relative  states. 
The  logic  defines  feedback  control  on  the  basis  of  relative  state. 

The  COAP  program  may  utilize  variational  optimization  procedures  to 
determine  optimal  open  loop  control  against  a  reacting  opponent 
employing  feedback  control  defined  by  combat  logic.  Alternately,  the 
combative  feedback  control  logic  may  be  parameterized  permitting 
the  use  of  multivariable  search  for  the  definition  of  optimal  feedback 
control  parameters  against  a  reacting  opponent.  Finally,  by  param¬ 
eterization  of  both  vehicle  feedback  control  logic,  a  "mini-max"  mode 
of  operation  may  be  employed  in  which  a  solution  is  obtained  by  multi- 
variable  search  for  a  saddle  point. 

All  capabilities  described  are  available  in  a  single  general 
purpose  FORTRAN  IV  digital  computer  program  developed  for  the  CDC 
6600  computer.  This  volume.  Volume  III,  presents  a  programmer's  manual 
containing  instructions  regarding 

(a)  Computer  requirements 

(b)  Program  structure 

(c)  Detailed  subroutine  descriptions 
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ABSTRACT 


A  program  for  trajectory  optimization  by  the  variational  steepest- 
deacent  is  described  in  detail.  The  program  capability  includes  search 
for  optimal  initial  conditions;  search  for  optimal  arc  (stage)  lengths; 
constraints  defined  at  terminal  point,  intermediate  corners  (stage 
points),  or  along  the  path;  payoff  function  at  terminal  point  or  inter¬ 
mediate  correr  (stage  point);  search  for  optimum  parameter  (design 
variable)  values;  and  two  system  (vehicle)  problems  with  or  without 
reacting  feed-back  from  the  second  system  (vehicle). 

The  program  also  incorporates  an  alternative  direct  multivariable 
search  approach  to  trajectory  optimization  employing  a  variety  of  multi¬ 
variable  search  algorithms  including  elemental  perturbation  (one  param¬ 
eter  at  a  time);  organized  first-  and  second-order  methods,  and 
randomized  methods.  A  method  for  solution  for  problems  exhibiting 
multiple  extremals  and  a  procedure  for  the  location  of  saddle  points 
is  also  included  in  the  program. 

Foint  mass  equations  of  motion  for  a  two-vehicle  system  are  avail¬ 
able  in  the  program.  Motion  takes  place  about  a  rotating  oblate  planet 
having  up  to  four  harmonics  in  its  gravitational  field,  non-uniform 
atmosphere  (1959  or  1962  ARDC),  and  winds.  Auxiliary  computations  for 
aerodynamic  heating  are  included.  The  vehicles  may  have  arbitrary  arid 
independent  aerodynamic  and  propulsive  characteristics. 

Combative  logic  defined  in  terms  of  vehicle  relative  states  is 
available  in  the  program.  The  logic  defines  feedback  control  on  the 
basis  of  relative  state.  Variational  optimization  procedures  may  be 
employed  to  determine  optimal  open  loop  control  against  a  reacting 
opponent  employing  feedback  control  defined  by  combat  logic.  Alter¬ 
nately,  the  combative  feedback  control  logic  can  be  parameterized 
permitting  the  use  of  multivariable  search  for  the  definition  of  optimal 
feedback  control  parameters  against  a  reacting  opponent.  By  param¬ 
eterization  of  both  vehicle  feedback  control  logic,  a  "mini-max" 
situation  capable  of  solution  by  multivariable  search  for  a  saddle 
point  can  be  considered. 

Ail  capabilities  described  ore  available  in  a  single  general 
purpose  FORTRAN  IV  digital  computer  program  developed  for  the  CDC  6600 
computer. 
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SECTION  I 


INTRODUCTION 


This  report  describes  a  generalized  digital  computer  program  for 
the  simulation  and/or  optimization  of  arbitrarily  defined  vehicle  flight 
paths.  Two  simultaneously  coupled  three-dimensional  point  mass  trajec¬ 
tories  about  a  rotating  oblate  planet  having  a  multi-layered  atmosphere 
may  be  employed.  Levels  of  reduced  complexity  varying  from  the  generalized 
problem  to  straightforward  planar  point  mass,  single  vehicle,  vacuum 
trajectories  may  be  studied  with  the  aid  of  the  program. 

The  program  itself  has  evolved  over  a  period  of  some  ten  years, 
mainly  on  the  basis  of  four  Air  Force  Flight  Dynamics  Laboratory  (AFFDL) 
sponsored  contractor  research  studies.  The  program  has  also  been 
supported  by  National  Aeronautics  and  Space  Administration  studies  at 
Ames  Research  Center,  Langley  Research  Center,  and  the  Manned  Spacecraft 
Center  and  has  received  wide  distribution  throughout  the  aerospace 
industry . 

In  addition  to  the  point  mass  capability,  compalible  trajectoiy 
equation  options  of  increased  complexity  up  to  and  including  a  six- 
degree-of -freedom  single  vehicle  option  employing  generalized  vehicle 
and  planetary  characteristics  and  a  generalized  trajectory  error  and 
dispersion  analysis  are  available  from  AFFDL. 


PURPOSE 


The  program  reported  in  this  document  extends  the  existing  AFFDL 
single-vehicle  point  mass  program  to  the  two-vehicle  point  mass  problem. 
Specifically,  the  original  program  has  been  extended  to  provide  a  gener¬ 
alized  two-vehicle  (one-on-one)  combative  engagement  eimulation  and 
optimization  capability.  The  combative  encounter  may  be  defined  at 
several  levels  of  complexity  short  of  differential  game  formulation 
including: 

OPTION  (A ) :  Self-contained  role  and  tactic  selection 
based  on  relative  vehicle  states 

OPTION  (B):  Parameterization  of  one  vehicle's  role  and 
tactic  selection  rules  followed  by  the 
application  of  multivariable  search  proced¬ 
ures  to  obtain  the  optimal  parameter  values. 

This  option  defines  optimal  parameters 
against  a  specified  opponent  employing 
fixed  combat  logic  parameters. 
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OPTION  (C):  Parameterization  of  both  opponent's  role  and 
tactic  selection  rules  followed  by  the  appli¬ 
cation  of  a  multivariable  saddle  point  search 
technique.  This  option  defines  a  "mini-max" 
optimal  procedure  for  opponents  employing 
variable  combat  logic  parameters. 

OPTION  (D):  Open  loop,  continuous  control  optimization 
by  the  variational  calculus  against  an 
opponent  performing  a  pre-specified  maneuver, 
the  "maneuvering  target"  option. 

OPTION  (E):  Open  loop,  continuous  control  optimization 
by  the  variational  calculus  against  a 
reacting  opponent  employing  fixed  parameters 
and  self-contained  combat  tactics. 

It  should  be  noted  that  the  formulation  and  program  include  as 
subcases  two-vehicle  cooperative  problems.  This  leads  to 

OPTION  (F):  Cooperative  twc-vehicle  parametric  control 

OPTION  (G):  Cooperative  two-vehicle  open  loop  contin¬ 
uous  control 

These  last  two  options  permit  the  optimization  of  two-vehicle  rendezvous 
problems  and  are  equally  applicable  to  aircraft  or  spacecraft  problems. 
Single-vehicle  problems  may  also  be  studied  by  means  of  the  program.  In 
this  reduced  mode,  both  parametric  and  variational  optimization  formulations 
can  be  employed. 
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SECTION  II 


COMPUTER  AND  SYSTEM  REQUIREMENTS 


The  combat  simulation  program  has  been  written  for  use  vith  the 
CDC  6600  series  computer  system  using  the  run  compiler.  Except  for 
three  small  subroutines,  GET,  PUT,  and  OFFSW,  the  program  is  written 
in  CDC  FORTRAN  IV. 

Computer  resource  requirements  are 

1.  A  CDC  6600  computer  with  131k  (decimal)  core 

2.  A  card  reader 

3.  A  line  printer 

b.  A  card  punch  (if  restart  cards  axe  to  be  punched) 

5.  Twenty-two  tape  transports  or  a  dish  to  simulate 
magnetic  tape 

6.  A  display  console  (This  requirement  is  omitted 
when  the  display  subroutine  SCOPE  is  replaced  by 
a  dummy  subroutine). 
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SECTION  III 


PROGRAMMING  CONCEPTS 


1.  The  Use  of  COMMON 


Whenever  posoihle,  a  variable  is  placed  in  the  FORTRAN  "COMMON"  area. 
There  are  several  reasons  for  this: 

a.  The  communication  between  subroutines  is  simplified 

b.  The  structure  of  the  directory  is  simplified.  Since 
the  number  of  variables  in  CO'dMON  is  quite  large,  all 
COMMON  cards  are  not  placed  in  each  assembly/compilation. 

Instead,  access  to  any  quantity  in  the  COMMON  blocks 

is  through  individual  "EQUI''  ALENCE"  statements  placed 
in  each  deck  of  source  cards.  This  has  in  a  small 
manner  reduced  the  number  of  COMMON  cards  in  each  deck. 

In  order  that  the  user  may  better  obtain  the  required  COMMON  location 
for  a  given  variable,  a  system  of  COMMON  subscripts  is  used.  The  first 
location  of  COMMON  has  a  subscript  of  1;  the  second,  2,  ,  .  .  The  listing 
of  the  suffix  directory  can  be  cbtained  by  a  program  user  if  the  data 
quantity  "DLIST"  is  input  as  1.0  to  the  program. 

The  data  for  vehicle  one  is  stored  in  "blank"  COMMON.  The  data  for 
vehicle  two  is  stored  in  named  C0MM0N/C0MM0N2/.  Blank  COMMON  and  /C0MM0N2/ 
each  use  3000  core  locations.  The  COMMON  subscript  of  a  given  variable  is 
the  same  for  both  vehicles.  For  example,  bank  angle,  "BA77C,"  is  the 
sixty-fourth  location  of  blank  COMMON  for  vehicle  one  and  is  the  sixty- 
fourth  location  of  /C0MM0N2/  for  vehicle  2. 

2.  Table  and  Table  Usage 

One  of  the  usual  required  modifications  of  any  program  is  the  change 
of  table  sizes.  With  this  in  mind,  a  COMMON  block  of  locations  has  been 
set  aside, and  the  required  number  of  cells  required  for  each  table  is 
specified  with  data  (check  TABRE  for  data  preparation).  This  requires 
no  re-assembly  or  recompilation  unless  the  total  number  of  cells  required 
exceeds  the  COMMON  block.  This  has  been  set  at  1+000  cells  for  each 
venicle.  Table  data  for  vehicle  one  is  stored  in  numbered  COMMON  /5/ , 
and  table  data  for  vehicle  two  is  stored  in  numbered  COMMON  / 52/ . 

3.  Symbolic  Input 

Although  the  FORTRAN  system  itself  has  a  system  of  input  routines, 
the  program  does  the  actual  translation  of  cards  using  special  coded 
routines.  Input  data  may  be  read  using  a  system  of  symbols  vnich  is 
designed  to  give  engineering  meaning  to  the  analyst.  The  symbols  sure 
internally  referenced  to  actual  locations  by  the  use  of  COMMON  and 
subscripts. 


U.  Trajectory  Printing  Method 


The  printing  of  a  trajectory  may  be  divided  into  five  categories: 

a.  Initial  printing  -  The  printing  of  specific  values  of  the 
first  stage  and  at  each  subsequent  major  stage.  Initial 
print  is  designed  to  print  certain  values  which  will  be 
constant  during  the  trajectory  and  serve  as  a  reminder  of 
what  values  have  been  used  for  these  constants. 

b.  Code  printing  -  The  printing  of  codes  which  will  identify 
the  variables  which  are  to  be  obtained  in  the  coming  time 
history  print.  Only  those  variables  to  be  printed  in  the 
time  history  will  have  a  code  name  printed.  All  subpro¬ 
grams  being  used  as  well  as  the  differential  equations 
routine  will  print  a  set  of  codes. 

c.  Time  history  printing  -  The  printing  of  values  specified 
at  the  requested  points  of  the  trajectory.  If  a  certain 
variable  is  not  desired  as  output,  it  is  not  printed,  and 
other  desired  variables  are  moved  in  the  print  format 
accordingly. 

d.  Observation  functions  -  A  maximum  of  thirty- two  variables 
for  each  vehicle  may  be  designated  as  observation  functions. 

At  the  end  of  each  major  stage,  the  time  history  of  all 
observation  functions  are  printed  in  tabular  format.  Obser¬ 
vation  functions  may  also  be  plotted  on  the  line  printer. 

The  object  of  observation  function  printout  is  the  construc¬ 
tion  of  compact  histories  for  the  major  trajectory  variables. 

e.  Diagnostic  error  printing  -  The  printing  of  errors  detected 
by  the  program. 

The  entire  printing  is  controlled  to  print  on  a  pa^e  11  x  lU  inches 
and  will  print  a  maximum  of  fifty-four  lines  per  page.  Page  ejection  and 
lines  control  are  provided  by  the  subroutines  LINES  and  DEF. 

In  addition  to  the  above  printout,  all  input  data  involved  for  a  case 
may  be  printed  on  the  output  page  preceding  the  computation  of  the  first 
stage  printout.  This  printout  is  user-controlled  and  will  be  omitted 
when  IPNAML  *  0.  This  print  will  occur  on  tfc  ,•  first  cycle  only. 

5*  Tape  Usage 

This  section  will  describe  the  tape  usage  o^aer  than  the  FORTRAN 
system.  All  modification  of  tapes  required  may  be  made  with  control 
cards  placed  in  front  of  the  program  before  submitting  to  the  computer. 


TAPE 

EQUIPMENT 

VEHICLE 

USAGE 

Tape  5 

Disk  or  tape 

1  &  2 

Data  input 

Tape  6 

Disk  or  tape 

1  &  2 

Printed  output 
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TAPS 


EQUIPMENT 


VEHICLE 


USAGE 


Tape  10  Disk  or  tape  1 

Tape  11  Disk  or  tape  1 

Tape  12  Disk  or  tape  1 

Tape  13  Disk  or  tape  1 

Tape  Ik  Disk  or  tape  1  &  2 

Tape  15  Disk  or  tape  1 


Tape  l6  Disk  or  tape  1 

Tape  17  Disk  or  tape  1 

Tape  18  DisK  or  tape  1  &  2 

Tape  19  Disk  or  tape  1  &  2 

Tape  20  Disk  or  tape  2 

Tape  21  Disk  or  tape  2 


Save  the  a  history  for  that 
valid  step  for  use  with  all 
trialB  until  another  valid 
step  is  found. 

TMb  unit  is  used  in  the 
reverse  integration  to  Bave 
data  for  use  in  computing 
the  mode  shape  in  the  con¬ 
trol  system. 

Partials  and  control  vari¬ 
ables  are  written  on  this 
unit  for  use  in  the  reverse 
integration 

Target  data  is  written  on 
this  tape  when  using  the 
maneuvering  target  option. 

Used  to  save  the  AESOP  data 
base  for  the  outer  AESOP 
parameter  optimization  loop. 

This  tape  is  used  for  restart 
cards.  Restart  cards  for  the 
last  completed  cycle  are 
written  on  this  tape.  The 
program  call  card  may  be  used 
to  automatically  assign  this 
tape  to  the  punch  file. 

Used  to  prepare  the  input 
tape  in  binary  for  use  in 
the  iterative  procedure. 

Collects  data  for  plotting 
in  overlay  5,  0  (GRAPH) 

Save  the  AESOP  parameter 
and  performance  history  for 
the  summary  report  at  the 
end  of  an  optimization  cycle. 

Save  the  AESOP  parameter  and 
performance  history  for  the 
final  summary  report. 

Same  as  unit  10. 

Same  ar  unit  11 


t> 


f,n. 

Off 

TAPE 

EQUIPMENT 

VEHICLE 

USAGE 

Tape  22 

Disk 

or 

tape 

2 

Same  as  unit  12. 

Tape  23 

Disk 

or 

tape 

2 

Same  as  unit  13. 

Tape  25 

Disk 

or 

tape 

2 

Same  as  unit  15. 

Tape  26 

Disk 

or 

tape 

2 

Same  as  unit  16. 

Tape  27 

Disk 

or 

tape 

2 

Same  as  unit  JJ. 

FILMPL 

Disk 

or 

tape 

1 

Used  by  the  CDC  280  recorder 

and  display  system. 


6.  Overlay  Listing 


The  following  is  a  list  of  the  overlay  structure  of  the  combat  simulation 
program  including  the  main  program,  subprograms,  subroutines,  and  system 
routines  used.  (Note:  System  routines  appear  in.  italica). 


OVERLAY  00.00 


1 

-k.  * 

MAIN 

2. 

BDATA1 

3. 

HDATA2 

4. 

BDATA3 

5. 

EDATAU 

6. 

BDATA5 

7. 

3DATA6 

8. 

BDATA7 

9. 

SPRANG 

10. 

MAIN2 

11. 

CHAIN 

12. 

MSGONE 

13. 

MSGTWO 

Hi. 

SYSTEM 

15. 

F INBIN 

16. 

ACGOER 

17. 

EXF 

18. 

ALNLOG 

19. 

SORT 

20. 

SECOND 

21 

OUTPTC 

22. 

OVERLAY 

23. 

REWINM 

24. 

OUTPB 

25. 

SI0$ 

26. 

GETBA 

27. 

KODER 

28. 

OVERLOD 

OVERLAY 

01.00 

1. 

MALN1 

2. 

READA 

3. 

DORDER 

4. 

PACKL 

5. 

DSERCH 

6. 

STOP1 

7. 

EXERR 

8. 

T3RCH 

9. 

READB 

10. 

MAIN12 

11. 

RAESOP 

12. 

DIPLAC 

13. 

def 

14. 

TABRE 

15. 

LINES 

16. 

PACBCD 

17. 

P  AC  ICR 

18. 

READ31 

19. 

SVI 

20. 

BIBLOCK 

21. 

SHELL 

22. 

SHELIiX 

23. 

READA2 

24. 

DSERCH2 

25. 

TSERCH2 

26. 

READB2 

27.  TABRE2 
29.  BACKS? 
31.  INTUTC 
33.  IFENDE 
35.  oyyprw 
37.  XMM 

OVERLAY  02.00 

1.  EXE 
3;  MANTGT 
5.  IFCS 
7.  LINCOM 
9.  PENAL 
11 .  OBSFUN 
13.  EXE2 
15.  EXTRAN 
17.  TNTGRT 
19.  LINES 
21.  ITEMS 
23.  C0MBAT2 
25.  M1M1NF 
27.  STGTST2 
29.  VALUES 
31.  MISCUT2 
33.  DIFEQ1 
35 .  DIFEQ3 
37 .  DIFE05 
39.  ST0P1 
41.  TLUREV 
ii3.  ASIN 
1)5.  ATAN2 
1*7.  TIMREV 


49. 

EXERR 

51. 

PSUBR 

53. 

FLU SHI 

55- 

PAPEHP 

57- 

CTVS2 

59- 

PARTS2 

6l. 

SLACKS 

63. 

PLTS2 

65. 

EXTRAN 2 

67- 

INTGRT2 

69. 

ITEMS2 

71. 

VALUES2 

73. 

R0LE1 

75. 

ANGLES 

77* 

detect 

79. 

HLD-1IT2 

81. 

CRATE2 

83. 

T 1 1001 

85. 

FIRFUN 

87. 

DEQINI 

28.  SVI2 
30.  INPUTB 
32.  OUTPTS 
34.  INPUTS 
36.  INPUTS 


2.  DIFEQ 
4.  CTV3 
6.  PARTS 
8.  SLACK 
10.  PLTS 
12.  FILTER 
14.  STGTST 
16.  READB 
18.  DEF 
20.  CODES 
22.  COMBAT 
24.  0BSFUN2 
26.  MIMDJF2 
28.  TIMID 
30.  MISCUT 
32 .  GNLINED 
34.  DIFEQ? 
36.  DIFEQ4 
36.  DIFEQ6 
40.  TSF.OH 
42.  ACOS 
44.  TLU 
46.  TLUx 


48. 

DSERCH 

50. 

ONETWO 

52. 

PRPACK 

54. 

SETGRD 

56. 

MANTGT2 

58. 

IFCS2 

60. 

LINC0M2 

62. 

PENAL2 

64. 

FILTER2 

66. 

READB2 

68. 

C0DES2 

70. 

TIMID2 

72. 

DETECT 

74. 

HLIMIT 

76. 

CRATE 

78. 

R0LE2 

80. 

ANGLES7 

82. 

DSERCH2 

84. 

DEQPRE 

86. 

GAMA91 

88. 

DEQBCI 
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89. 

FPPS 

90. 

CTLJ.TR 

91. 

DEQACI 

92. 

FPPG 

93. 

DEQ/3IP 

94. 

DEQCOD 

95. 

DEQVAL 

96. 

DEQIV 

97- 

DEQHT 

98. 

DEQPRE 

99. 

FIRFUN2 

100. 

GAMA92 

101. 

DEQINI2 

102. 

DEQBCI2 

103. 

FPPS  2 

10U . 

CTLITR2 

105. 

DEQACI2 

106. 

FPPG2 

107. 

DEQSIP2 

108. 

DEQC0D2 

109. 

DEQVAL2 

no. 

DEQIV2 

111. 

DEQHT2 

112. 

ERROR 

113. 

PTBEQN 

Il4. 

TWOONE 

115. 

IZERO 

116. 

PPLNLN 

117. 

TSRCH2 

118. 

TLU2 

119. 

T1MREV2 

120. 

TIM0012 

121. 

SENSOR 

122. 

VISION 

123. 

PASSV1 

124. 

D2FEN1 

125. 

EVADE1 

126. 

OFFEN1 

127. 

ATTAC1 

128. 

OALPBA 

129. 

HIHO 

130. 

TMTX 

131. 

TRNPOS 

132. 

MULT31 

133. 

SENSOR2 

134. 

VISI0N2 

135. 

PASSV2 

136. 

DEFEN 2 

137. 

EVADE2 

138. 

OFFEN2 

139- 

ATTAC2 

l4o. 

OALPBA2 

l4l. 

HETS 

142. 

TFFS 

143. 

SACS 

144. 

LATS 

145. 

ATMS 

.146. 

GVSP 

1U7. 

ANITR 

148. 

BAITR 

1U9. 

HETS2 

150. 

TFFS2 

151. 

SACS2 

152. 

LATS2 

153. 

ATMS  2 

154. 

GVSP2 

155. 

ANITR2 

156. 

BAITP.2 

157. 

ASRCH 

158. 

PTBEQii2 

159. 

GRIDXY 

160. 

PLCPTS 

161. 

ERR0R2 

162. 

IPICK 

163. 

DEFEN11 

164. 

FIXEDR 

165. 

EVADE11 

166. 

OFFEN11 

167. 

ATTACH 

168. 

CTLOPT 

169. 

NDTLU 

170. 

DEFEN21 

171. 

FIXEDR2 

172. 

EVADE21 

173. 

0FFEN21 

174. 

ATTAC21 

175. 

CHEMP 

176. 

CONV 

177. 

TFFM 

178. 

ATMS 59 

179. 

ATMS  62 

160. 

CHEMP2 

181. 

TFFM2 

132 

HIH02 

163. 

ATMS 592 

18  4. 

ATMS622 

185. 

PUT 

186. 

GET 

137. 

ASRCH2 

188. 

OPTRA 

189. 

INITOP 

190. 

BESTAF 

9 


191.  IMAINOP 

192. 

193.  PENLTY 

19k. 

195.  PGAIN 

196. 

197.  IRF7AL 

198. 

199.  SAVALF 

200. 

201.  ISELECT 

202. 

203.  WEIGHT 

204. 

205.  OUTFUN 

206. 

207 .  FNEVAL 

208. 

209.  SUMARY 

210. 

211.  CREEPR 

212. 

213.  OUTSUM 

214. 

215 .  BOUND 

216. 

217.  ASVCHK 

218. 

219.  RGEN 

220. 

221 .  FUNTYP 

222. 

223.  INPUTB 

224. 

225.  SINCOS 

226. 

227 .  IFENDF 

228. 

229 .  SCOPE 

230. 

231.  TAN 

232. 

233.  TANH 

234. 

235.  ENDFIL 

236. 

OVERLAY  03.00 

1 .  CTLS 

2. 

3.  CTLS2 

4. 

5.  LINES 

6. 

7.  SEARCH 

8. 

9.  CARDS 

10. 

11.  KCALC 

12. 

13.  DECIDE 

14. 

15.  DSERCH 

16. 

17 .  UNBLOCK 

18. 

19.  PLOT 

20. 

21.  DEC ID 3 

22. 

23 .  PACK 

24. 

25.  UPDK 

26. 

27.  ENDFIL 

28. 

29.  OUTPTS 

30. 

31.  INPUTS 

32. 

OVERLAY  0*4.00 

1 .  REV 

O 

1—  • 

3.  ADJEQ 

4. 

5.  LINES 

6. 

7  •  INTGF.TR 

8. 

9.  MIMINR 

10. 

11 .  VALUES 

12. 

13.  WMA 

14. 

15.  FLUSH 

16. 

17-  STOP  L 

18. 

19.  INPUTB 

WARPS 

0PTBA2 

AIiFLIM 

FESET 

PATERN 

PSRCH 

OUTALF 

PCYCLE 

PFINAL 

SECCON 

OUTWGT 

RARDUM 

SECTOR 

FESAV 

SHELL 

STDALF 

BACKSP 

RBAIEX 

OUTPTS 

RBAREX 

IBAIEX 

ATAN 

CPC 


CTLS1 

DEF 

DISPLAY 

STOP1 

DALCAL 

INVERT 

OFFSW 

TI.UU 

SUMOLA 

MATINV 

DECID2 

WNC'RM 

INPL'TB 

LOCF 

RBAREX 

KRAXER 


CTVSR 

DEF 

UNPART 

TLUREV 

CODES 

TLU1 

DALPACK 

IZUNPK 

BACKSP 
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OVERLAY  05.00 


1.  GRAPH 
3.  PRPLT 
5.  PLTCUR 
7 .  ABSVECT 
9.  LINEOPT 
11.  SETBEAM 
13.  SYMBOL 
15.  INPUTB 

OVERLAY  06.00 


2.  PAPLT 
4.  FRAME 
6.  ABSBEAM 
8.  MAP 
10.  CHAROPT 
12.  NUMBER 
l4.  VECTOR 


1.  DGAMES 


OVERLAY  07-00 


1. 

CTAE 

3. 

INITOP 

5. 

MAINOP 

7- 

CODES 

9. 

C0DES2 

11. 

SADDLE 

13. 

SADDLE 

15. 

ALFLIM 

17. 

FESET 

19. 

PATERN 

21. 

PSRCH 

23. 

ENDCYC 

25. 

OUTALF 

27. 

SUMARY 

29. 

SECCON 

31. 

STDESC 

33. 

QUADRA 

35. 

RPOINT 

37. 

RAYSEC 

39. 

OUTWGT 

4l. 

PCYCLE 

43. 

RANDUM 

45. 

SECTON 

47. 

WMAT 

49. 

ASVCHK 

51. 

MINALP 

53. 

ALFNUL 

55. 

QUADOP 

57. 

DMATRX 

59. 

RGEN 

61. 

SHELL 

63. 

STDALF 

65. 

QMXINV 

67- 

INPUTN 

69. 

SNDFIL 

2 . 

ST0P1 

4. 

BE3TAF 

6. 

WARPS 

8. 

VALUES 

10. 

VALUES 2 

12. 

PENLTY 

l4. 

PGAIN 

16. 

INEVAL 

18. 

SAVALF 

20. 

SELECT 

22. 

WEIGHT 

24. 

FNEVAL 

26. 

OUTFUN 

28. 

DEF 

30. 

MAGNFY 

32. 

CREEPR 

34 

DAVIDN 

36. 

RANRAY 

33. 

BAESOP 

40. 

OUTSUM 

42. 

PFINAL 

44. 

BOUND 

46. 

DERIV 

48. 

INISTD 

50. 

FESAV 

52. 

ALPERT 

54. 

QDTRAN 

56. 

MAXRDP 

58. 

SAVDER 

60. 

RANCOS 

62. 

FUNTYP 

64. 

MATMLT 

66. 

RBA1EX 

68. 

OUTPTN 

70. 

INPUTB 
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7.  Program  Organization 


The  combat  simulation  computer  program  is  written  in  CDC  FORTRAN  IV 
except  for  one  small  display  routine  OFFSW  and  two  small  character  mani¬ 
pulation  routines  GET  and  PUT.  The  program  takes  advantage  of  the  overlay 
feature  to  minimize  core  requirements. 

This  section  describes  the  overall  organization  of  the  program  from 
the  viewpoint  of  control  cards,  tape  usage,  and  d°ck  set  up.  The  program 
in  broken  into  eight  overlays  as  follows: 

1.  MAIN  -  MAIN  zeros  out  all  of  the  common  locations  and  moves 
the  directory  data  to  common  locations. 

2.  MAIN1  -  Does  some  data  initialization  and  prepares  an  input 
tape  for  use  in  the  iterative  procedure. 

3.  EXE  -  Solves  the  equations  of  motion  and  computes  the 
partial  derivatives. 

4.  CTLS  -  To  compute  the  step  size  and  new  control  variable 
table  for  the  next  trajectory  being  computed. 

5.  REV  -  The  reverse  integration  program  computes  integrals 
which  determine  the  mode  shape  of  the  changes  in  the  con¬ 
trol  variables  and  puts  this  out  on  tape  for  use  in 
CTLS. 

6.  GRAPE  -  Dummy 

7.  DGAMES  -  Dummy 

8.  CTAE  -  Parameter  optimization  AESOP 

a.  Storage  References 

All  variables  requiring  arrays  have  been  arranged  in  the  standard 
FORTRAN  convention.  For  example,  an  array  Ai  is  stored  in  increasing 
storage  locations  for  increasing  i.  Matrices  are  stored  columnwise. 

b.  Integers 

All  integers  are  assumed  to  be  in  a  60  bit  word  right  justified. 

c.  COMMON 

In  order  to  decrease  the  length  and  t.une  lequirsd  ir'  '•"VUna 
sequences,  liberal  use  of  COMMON  has  been  made,.  Three  types  of  COMMON 
are  used:  blank,  numbered,  and  labeled.  For  the  actual  variables  and 
their  arrangement  in  COMMON,  the  user  is  referred  to  the  program  listing. 

d.  Variable  Names 


Becuaae  any  variable  may  be  referred  to  by  FORTRAN,  all 
variable  names  begin  with  the  leading  letters  I,  «,  K,  L,  M,  or 


integer 
N.  This 
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does  not  mean  that  all  non- Integer  variable  names  begin  vith  Tatters 
other  than  I,  J,  K,  L,  M,  or  N.  They  may,  in  some  subprograms,  be 
declared  integer  or  real. 

8.  Program  Generation,  Modif ication ,  and  Execution 

The  following  examples  are  designed  to  aid  the  user  in  utilizing  the 
features  of  the  CDC  6000  series  computer  for  modification  and  execution 
in  the  combat  simulation  program.  All  examples  shown  ere  base  l  upon  an 
overlayed  program  organized  as  follows: 

OVERLAY (TRAJOPT,  0,  0) 

MAIN 

OVERLAY (TRAJOPT,  1,  0) 

MAIM 

OVERLAY (TRAJOPT,  2,  0) 

FYF. 

OVERLAY (TRAJOPT,  3,  0) 

CTLS 

OVERLAY (TRAJOPT,  4,  0) 

REV 

OVERLAY ( TRAJOPT ,  5,  0) 

GRAPH 

OVERLAY (TRAJOPT,  6,  0) 

DGAMES 

OVERLAY (TRAJOPT,  7,  0) 

CTAE 

All  control  cards  are  left-justified  in  card  column  1.  The  end  of  record 
is  a  7.  8,  9  punched  in  column  1  and  an  end  of  file  card  is  a  6,  'f .  8,  9 
punched  In  column  1.  In  the  control  card  examples,  an  end  of  record  and 
an  end  of  file  will  be  used  in  place  of  these  cards. 

a.  Building  the  Program  Overlay  Pile 

In  constructing  the  program  overlay  file  a  CDC-developed  utility 
program  COPYLIB  is  used.  COPYLIB  is  a  user  library  simulation  copy  routine 
developed  by  CDC  to  take  most  of  the  work  out  of  building  overlay  or 
normal  load  files.  However,  COPYLIB  is  not  a  standard  CDC  utility  program; 
hence,  a  short  description  is  supplied  below  with  examples  of  Its  use. 

COPYLIB  is  called  by  a  control  card  and  reads  text  cards. 

(l)  Control  Card 


COPYnIB(J6Tx"IT,2,  IIP!,  LIP?,,  .  TJBi) 

where  OUTFILE  is  the  name  of  the  disk  or  tape  file  upon  which  the  output 
(the  program  overlay  file)  is  to  be  written,  and  LIBlt  LIB2,  .  .  .,  LIBi 
(1  <  i  £  6)  are  the  names  of  the  user-supplied  library  files  containing 
subprograms  output  from  a  CDC  6600  compiler  or  assembler  in  relocatable 
object  form  (odd  parity). 
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(2)  Text  Cards 


The  order  and  content  of  the  text  cards  define  the  output,  file. 
They  are  free  form  in  columns  1  through  72,  blanks  ignored.  The  text  cards 
are  listed  as  follows: 


ident 


where  ident  is  a  subprogram  name.  The  purpose  of  the  ident  card  is  to 
name  the  main  program.  Once  the  main  program  name  is  known,  it  and  all 
the  routines  it  calls  or  references  and  all  they  call  or  reference  that 
were  available  in  the  library  files  are  copied  onto  the  output  file 
specified. 


Usually,  only  the  one  card  naming  the  main  prog~xw  need  be 
given  except  for  certain  cases  such  as  Block  Data  routines  that  are 
necessary  but  not  specifically  called  or  referenced  by  any  program,  (in 
the  case  of  an  otherwise  unnamed  Block  Data  routine,  the  additional 
ident  card  would  contain  only  BLKDATA).  Another  instance  might  be  one 
in  which  the  order  of  loading  was  important  to  guarantee  that  the  longest 
named  COMMON  reference  -ooJ.d  come  first.  The  order  would  be  forced  by 
the  insertion  oi  additional  cards  containing  the  names  of  the  routines 
in  the  order  required. 


OVERLAY (fn,  I l ,  I2 ) 


Overlay  text  cards  are  necessary  to  properly  define  the  structure  of 
the  file  to  be  built  for  overlay  loading.  These  cards  cause  an  overlay 
loader  directive  record  containing  all  the  information  on  the  text  card 
to  be  written  on  the  out  file.  The  order  and  form  of  this  text  card 
must  be  exactly  as  defined  in  the  Scope  Reference  Manual  or  the  FORTRAN 
Reference  Manual,  with  the  exception  of  the  starting  column. 

An  ident  text  card  containing  the  name  of  the  main  program  in  the  over¬ 
lay  must  follow  each  overlay  text  card. 

Given  correct  overlay  and  ident  text  cards ,  COPYLIB  will  correctly  build 
an  overlay  structure  file;  no  routine  needed  or  defined  in  a  more  funda¬ 
mental  overlay  will  b?  placed  in  a  less  fundamental  level.  If  an  ident 
card  incorrectly  attempts  to  call  a  routine  that  has  somehow  either 
through  a  previous  ident  text  card  or  through  a  call  by  a  subroutine  at 
that  level  already  been  ^laccd  in  the  more  fundamental  level,  the  ident 
card  is  ignored  and  an  informative  diagnostic  is  printed.  It  is  possible 
to  have  several  0,  0  level  overlay  cards  in  the  text  stream  if  the  pur¬ 
pose  is  to  build  different  overlay  structured  programs. 


*WE0F* 

This  text  card  causes  an  end  of  file  to  be  written  on  the  OUTFILE  after 
all  the  preceding  text  cards  are  processed.  (A  file  mark  might  be 
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between  two  separate  overlay  structured  programs  being  output  in  a  single 
run) . 


(3)  Interesting  Details  and  Limitations 


For  perhaps  98  par  cent  of  all  the  times  COPYLIB  is  used, 
500000  vill  be  sufficient  field  length.  COPYLIB  will  abort  if  the  fol¬ 
lowing  inter,  ao  tables  overflows: 

Name  of  Table  Size 


Library  Subprogram  Name 
Subprogram  Entry  Points 
Subprogram  External  References 
Current  Overlay  Need  Stack 
Working  Storage  Buffer 


768 

1230 

38U0 

383 

variable  (see  below) 


The  working  storage  buffer  size  can  be  determined  by  subtrac¬ 
ting  1*05000  from  the  field  length.  It  is  difficult  to  determine  what  the 
minimum  size  required  will  be  unless  the  lengths  of  the  relocatable  binary 
records  present  on  the  user  library  files  are  known.  The  length  of  the 
longest  record  determines  the  minimum  working  storage  buffer  size.  (Note: 
this  length  is  not  the  amount  of  core  required  to  load  the  subprogram  for 
execution  but  the  number  of  words  output  by  the  compiler  or  assembler.^ 

In  other  words,  it  is  proportional  to  the  number  of  binary  cards  that 
would  be  punched  out, were  the  subprogram  punched  out,  not  necessarily 
related  to  the  size  of  any  arrays  dimensioned  inside  the  subprogram.  This 
length  can  be  obtained  exactly,  if  necessary,  from  the  information  output 
by  a  "LIBLIST"  of  the  library  files,  and  should  be  rounded  upward  to  the 
nearest  10008  when  figuring  the  minimum  field  length  necessary  for  COPYLIB. 


COPYLIB  rewinds  each  user  library  file  starting  with  the 
first  mentioned  then  transfers  every  routine  contained  in  it  to  a  random 
access  file,  rewinds  the  library  file,  and  then  repeats  this  process  with 
the  next  user  library  file  mentioned,  for  every  file  given. 


If  during  the  transfer  process  a  subprogram  is  found  that  has 
a  name  duplicating  one  found  previously,  the  latter  subprogram  is  skipped, 
an  informative  diagnostic  printed,  and  the  process  continues.  This  is 
handily  put  to  use  when  one  wishes  to  use  a  newer  version  of  a  routine 
instead  of  the  version  contained  in  one  of  the  user  library  files,  e.g., 
by  placing  the  name  of  the  never  library  file  to  the  left  of  the  older 
version,  the  user  causes  the  duplicate  routines  on  the  later  file  to  be 
ignored. 


Entry  points  muBt  be  unique  to  one  subprogram.  If  two  or 
more  huve  the  same  entry  point  names,  COPYLIB  output  may  be  scrambled. 
The  responsibility  for  proper  overlay  text  card  sequence  is  entirely  the 
user's.  Incorrect  sequencing,  as  defined  in  the  Scope  and  FORTRAN 
Reference  manuals,  will  not  be  flagged  until  an  attempt  is  made  to  load 
the  out file. 
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The  out  file  is  rewound  at  the  beginning  and  end  of  COPYLIB. 
It  will  be  ended  with  one  end-of-file  mark  unless  more  are  forced  through 
*WE0F*  cards  at  the  end  of  the  text  cards. 

The  random  access  file  mentioned  earlier  is  called  RMSCR 
and  must  be  a  disk  file.  However,  at  the  conclusion  of  COPYLIB  it  can 
be  rewound  and  copied  by  the  normal  control  cards  (REWIND  and  COPYBF)  if 
the  user  wishes  to  save  a  new  version  of  the  user  library.  This  file 
contains  all  of  the  routines  found  in  the  library  files  input  to  COPYLIB 
minus  any  duplicate  routines,  overlay  cards,  and  compiler  or  assembler 
error  records. 

The  present  version  does  not  allow  the  use  of  INPUT  (the 
card  re-ider )  as  a  library  f  i]  c . 

EXAMPLE  1 

The  initial  installation  of  COPYLIB  as  a  permanent  file. 

RFL, 60000. 

UPDATE (N,C) 

FIN(l=COMPILE) 

load(lgo) 

NOGO, 

CATALG ( COPYLIB , COPYLIB ,  H>=ARCAFFDL ,EX=ARC1 , 

CN-ARCl ,MD=ARC1 ,RP=999 ) 
end  of  record 

| COPYLIB  source  deck j 
end  of  record 


EXAMPLE  2 

The  initial  installation  of  the  COMBAT  simulation  program. 

The  FORTRAN  source  decks  are  arranged,  sequenced,  and  stored  alpha¬ 
betically.  The  following  deck  set  up  is  used  for  the  initial  generation 
of  the  COMBAT  simulator  program  overlay  file  NEWP3M  on  tape  ARC01. 

REQUEST  NEWPGM.HI.  (AtfCOZ/RiNG) 

RFL, 60000. 

RUN (S,,,,,, 77000) 

ATTACH(C0PYL1B, COPYLIB) 

copylib(newpgm,lgo) 

jcOMBAT  source  decks  arranged  alphabetically 
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0VERLAY(TRAJ0PT,0,0) 

MAIN 

OVERLAY ( TRAJOPT , 1 , 0 ) 

MAH»1 

0VERLAY(TRAJ0PT,2,0) 

EXE 

OVERLAY (TRAJOPT, 3, 0) 

CTLS 

OVERLAY (TRAJOPT ,U ,0 )  CCPYLIB  text  carde 

REV 

OVERLAY  ( TRAJOPT ,  5 , 0 ) 

GRAPH 

OVERLAY ( TRAJOPT , 6 , 0 ) 

DGAMES 

OVERLAY (TRAJOPT , 7 , 0 ) 

CTAE 

end  of  record 
end  of  file 


EXAMPLE  3 

Modification  of  the  combat  simulation  program 

The  following  deck  set  up  is  used  when  making  modifications  to 
the  combat  simulation  program. 

REQUEST  OLDPGM.HI.  {ARCO l /NORING) 

REQUEST  NEWPGN.HI.  {ARC02/E IHG) 

RFL ,60000. 

RUH(S,,,,,, 77000) 

ATTACH  (COPYLIB.COPYLIB) 

COPYLIBQfEWPGM,  LGO,  OLDPGM) 


end  of  record 
end  of  record 


Modified  COMBAT  source  decks 


OVERLAY ( TRAJOPT , G , 0 ) 

MAIM 

OVERLAY ( TRAJOPT , 1 , 0 ) 

MAIH1 

OVERLAY (TRAJOPT, 2, 0)  ^  ^ 

OVERLAY (TRAJOPT ,3 ,0 ) 

CTLS 

OVEPLAY (TEA TOPT , h , 0 ) 

REV 

OVERLAY  (TRAJOPT,  5,0) 

GRAPH 

OVERLAY ( TRAJOPT , 6 , 0 ) 

DGAMES 

OVERLAY (TRAJOPT, 7 ,0) 

CTAE 

end  of  record 
end  of  file 
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EXAMPLE  4 


The  following  deck  set  up  is  used  to  modify  and  execute  the  combat 
simulation  program. 

REQUEST  OLDPGMjHI.  (ARC01/N0RING) 

REQUEST  NEWPGM.HI.  (ARC02/RING) 

REQUEST  ABSPGM , HI .  (ARC03/RING) 

RFL, 60000. 

run(s, , , , , ,77000) 

ATTACH( COPYLIB .COPYLIB ) 

COPYLIB ( NEWPGM „ LGO , OLDPGM ) 

REWIN  (NEWPGM) 

RFL, 317000. 

SET(O) 

M0DE(1) 

LOAD (NEWPGM) 

NOGO. 

RFL, 20000. 

REWIND (TRAJOPT) 

REWIND (ABSPGM) 

COPYBF ( TRAJOPT , ABSPGM , 1 ) 

REWIND (TRAJOPT) 

RFL, 317000. 

TRAJOPT. 
end,  of  record 

1  Modified  COMBAT  source  decks 


end  of  record 


OVERLAY  ( TRAJOP11 ,0,0) 
MAIN 

OVERLAY ( TRAJOPT ,1,0) 
MAIN1 

OVERLAY ( TRAJOPT , 2 , 0 ) 
EXE 

OVERLAY ( TRAJOPT ,3,0) 
CTLS 

OVERLAY ( TRAJOPT ,4,0) 
REV 

OVERLAY (TRAJOPT, ?,0) 
GRAPH 

OVERLAY ( TRAJOPT , 6 , 0 ) 
DGAMES 

OVERLAY ( TRAJOPT , 7 , 0 ) 
CTAE 


COPYLIB  Text  Cards 


end  of  record 

( 

\data  aeck  for  oOhBAT  program 


end  of  record 
end  of  file 


EXAMPLE  5 


The  following  deck.  Get  up  1b  used  to  execute  the  combat 
simulation  program  from  a  tape  containing  the  absolute 
program  element. 

REQUEST  ABSPGM,  HI.  ( ARC03/N0RING ) 

REWIND ( ABSPGM ) 

REWIND (TRAJOPT) 

RFL, 20000. 

COPYBF ( AESPGM .TRAJOPT , 1 ) 

RFL, 31T000. 

M0DE(1) 

TRAJOPT. 
end  of  record 

data  deck  for  combat 
simulation  program 

end  of  record 
end  of  file 

(4)  Program  Call  Card 

In  the  two  previous  examples  the  combat  simulation  program 
was  executed  by  use  of  the  program  call  card 

TRAJOPT. 

where  TRAJOPT  is  the  name  of  a  disk  file  that  contains  the  absolute  program 
element. r  The  program  call  card  may  also  be  used  to  override  file  name 
parameters  which  appear  on  the  program  card  of  the  source  deck.  The  file 
parameters  appear  as  follows: 

PROGRAM  MAIN  ( INFUT=1001 ,  OUTFUT=1001,  TAPE5= INPUT,  TAPE6=OUTPUT , 

$  TAPE1 0=1001 ,  TAPE1I=1G01,  TAPE12=1001,  TAPE13=1001, 

$  TAPE1 4=1001 ,  TAFE15=10G1,  TAPEl6=1001,  TAPE17=1001, 

$  TAPEl8=1001,  TAPE12-1001, 

$  TAPE20=1001,  TAPE21=i001 ,  TAPE2 2=1001,  TAPE23=1001, 

$  TAPE2 5=1001,  T. J>E26=1001 ,  TAPE2?=1001,  FILMPL=100l) 

The  restart  cards  for  the  combat  program  are  written  on  TAFE15.  The  fol¬ 
lowing  call  card  may  be  used  with  any  6000  machine  which  has  a  card  punch 
and  recognizes  the  PUNCH  file  to  automatically  punch  the  restart  cards  at 
the  end  of  the  Job. 

TFAJ0PT( PUNCH) 


9.  Data  Format 


Card  Format  -  The 

Card  Columns 
Field 

Card  Field  I 


Card  Field  II 
Card  Field  III 


program  input  routine  (READA)  expects  the  following  format. 


1-6 

I 


7 

II 


8-10 

III 


11 

IV 


12-66 

V 


67-72 

VI 


73-80 

VII 


Contains  the  symbolic  name  of  the  variable  into  which 
data  contained  in  Field  V  begins  loading. 


Example : 


Card  Column  1  12 

GAM7D  -1.23 
SIG7D  90. 


Not  used. 

Contains  the  words  DEC,  OCT,  BCD,  TRA,  INT,  PAR,  or  is 
blank  depending  on  the  type  of  data  to  be  loaded.  The 
word  OCT  indicates  that  the  data  is  to  be  interpreted 
as  octal  numbers.  The  ward  BCD  specifies  that  N  binary 
coded  decimal  words  (N  punched  in  column  12)  beginning 
in  column  13  are  to  be  loaded.  The  word  TRA  denotes 
to  the  input  routine  that  all  data  has  been  input  and 
to  return  control  to  the  calling  program.  The  word 
PAR  indicates  that  the  input  quantity  is  to  be  treated 
as  a  free  parameter  in  a  multivariable  optimization 
study.  The  word  DEC  and  blank  are  equivalent  and 
specifies  that  data  loaded  is  decimal  data. 


OCT  Example 


Card  Column  1 


8 


NPOINT  OCT 

BCD  Example 

Card  Column  1  8 

REM  BCD 


12 

17 


12 

2 


The  2  in  column  12  specifies  two  words  where  each  word 
is  considered  to  be  six  characters  including  blanks. 
The  largest  number  of  six  character  words  that  can  be 
loaded  from  one  card  is  nine.  The  analysts  should  be 
very  careful  to  see  tha*  the  BCD  information  does  not 
get  punched  into  Field  VI.  This  will  cause  an  input 
error . 


DEC  Example 

Cara  Column  1 

ATAB0I 


8  12 

DEC  2,-100. ,1. ,100. ,1. 


Note  that  the  first  character  in  column  12  is  an 
integer  and  the  input  routine  will  load  only  one 
integer  per  DEC  card  and  that  has  to  be  the  first, 
number  punched  in  Field  v. 


ATAB01  DEC 


2., -100., 1., 100., 1. 


If  the  above  card  is  punched,  the  two  will  now  be 
loaded  into  the  machine  as  a  binary  floating  point 
number.  Likewise,  the  other  numbers  will  be  loaded 
in  the  snae  manner  with  the  decimal  point  assumed 
right  Justified. 

If  anything  other  than  OCT,  BCD,  INT,  TRA,  or  blank 
appears  in  Field  II,  then  the  word  DEC  is  assumed. 


1ST  FSrHTnpXq 


Card  Column  1 

8 

12 

JPSCUT 

INT 

1 

JPSCUT 

1 

JPSCUT 

INT 

1,  1,  1,  1 

When  the  word  1ST  is  used,  it  is  assumed  that  all 
numbers  on  the  card  will  be  loaded  as  integers.  If 
only  one  integer  is  punched  per  card, the  INT  may  be 
punched  or  emitted. 

PAR  Example 

Card  Column  1  8  12 

GAM7D  PAR  2 

The  PAR  in  column  8  indicates  that  the  input  quantity 
GAM7D  is  a  free  parameter.  The  2  in  column  12  indi¬ 
cates  that  GAM7D  is  the  second  free  parameter. 

Card  Field  IV  -  Not  used. 

Card  Field  V  -  The  actual  input  data  to  the  program  is  punched  in  the 

Field  V.  DEC,  INI,  and  OCT  must  always  be  left  adjusted, 
that  is,  it  must  start  in  column  12  on  the  input  card. 

All  numbers  are  separated  by  a  "comma, "and  the  field 
terminates  with  the  first  blank.  BCD  Information  begins 
in  column  13,  and  the  naximum  number  of  six  character 
words  per  card  is  nine.  Note  that  since  Field  V  ends 
with  the  first  blank,  the  user  may  punch  any  comments 
in  the  remainder  of  the  field. 

Card  Field  VI  -  This  field  specifies  the  initial  subscript  of  the  data 
in  Field  V.  If  this  field  is  blank,  an  initial  sub¬ 
script  of  1  is  implied.  The  subscript  may  appear 
anywhere  within  the  field. 


12  67 

4,0,20. ,10. ,18.  1  or  blank 

20., 17., 30. ,15.  6 


Example 

Card  Column  1 

ATAB01 

ATAB01 
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In  the  example  above  the  integer  U  is  loaded  into  the 
first  cell  of  the  array  ATAB01.  On  the  second  card 
20.  is  loaded  into  the  sixth  cell  of  the  array.  The 
one  and  six  punched  in  Field  VI  indicate  the  si  .script 
for  the  array  ATAB01. 

Card  Field  VII  -  Not  used  as  far  as  the  input  routine  is  concerned. 

This  may  be  used  as  a  sequence  number  for  the  card. 

10.  Table  Format 

The  various  types  of  tables  used  by  the  program  may  be  classed  as 

follows : 

Two  dimensional  table. 


Example 
Card  Column 


TTAB01  T  =  f(t) 

1  12 

TTAB01  N,  t.,  T.,  t„,  T.,  t  ,  T  ,  .  .  .,  t  ,  T 
’  •]_»  2*  2’  s*  s’  *  n  s 


N  equals  fixed  point  number  equal  to  two  times  the  number  of  independent 
variables.  For  a  20  point  table  N  would  equal  40.  The  total  number  of 
machine  cells  required  for  this  table  is  Ul. 

t^  =  independent  variable  values 

T\  =  corresponding  dependent  values 

N-dimensional  table. 


Example 
Card  Column 


ATAB80  C  =  f (x,y) 

1  12 

IA80X  NX 

IA0OY  NY 

ATAB80  Xlt  X  X  ....  X^ 

ATAB80  Yx,  Yg,  Y3,  .  .  Yny 

ATAB80  Cxsl^i^  Cx=2 }  • 

ATABSO  Cx=1>  y=2 ,  cx=2,  y=2,  ' 


»  Cx=nx,  y=l 


~x=nx,  y=2 


ATAB80  Cx=ij  y=cy  >  cx=2,  y=ny>  •  •  • »  cx=nx,  y=ny 

NX  and  NY  are  fixed  point  numbers  of  independent  variables.  Cx=l,  y=l 
•  •  •  Cx=nx>  y-ny  equal  values  of  independent  variables.  The  table 
subscripts  would  apply  to  the  N-dimensional  table  as  well  as  the  two 
dimensional.  The  total  number  of  machine  cells  required  for  an  N-dimen¬ 
sional  table  equal  XN(NY)  +  NX  +  NY. 


Examples 
c  =  f(x,y) 


NX  points  for  x  =  2 
NY  points  for  y  =  2 
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Machine  cells  requires  2x2  +  2  +  2  =  8  cells 

c  =  f(X,  Y,  Z)  NX  =  points  for  X  =  20 

NY  =  points  for  Y  *  10 
NZ  =  points  for  Z  =  15 

Machine  cells  required  =  20  x  10  x  15  +  20  +  10  +  15  =  30U5  cells. 

All  tables  must  have  at  least  two  points  per  table.  A  check  for  each 
individual  table  should  be  made  to  see  if  an  indicator  is  necessary  for 
the  program  to  read  the  table. 

11.  Brief  Write-up  on  System  Routines 

This  section  is  a  brief  write-up  of  some  of  the  system  subroutines 
used  by  the  CDC  6000  software.  Since  the  system  software  is  in  a  state 
of  constant  change,  this  information  may  be  of  little  or  no  use. 

a.  INPUTB 

Only  one  logical  record  is  read  each  time  INPUTB  is  called.  If 
the  list  is  longer  then  the  logical  record,  the  excess  words  in  the  list 
are  ignored  by  the  routine. 

An  attempt  to  read  past  an  end  of  file  will  cause  a  program  short. 
The  end  of  file  condition  can  be  cleared  by  testing  for  end  file  after 
the  file  mark  has  been  read  and  prior  to  another  attempt  to  read. 

INPUTB  calls  routines  GETBA  (to  locate  Buffer  Argument  address), 
UMERR  (to  output  Unassigned  Medium  diagnostic),  MARKFI  (to  end  file 
OUTPUT  and  position  file  INPUT),  and  XRCL  (to  go  on  Recall  while  an  I/O 
transmission  is  in  progress  and  computation  can  not  continue). 

b.  INFUTC 


INFUTC  handles  the  1/0  transmission  for  the  input  to  the  computer. 
It  calls  routine  KRAKER  to  perform  conversion. 

An  attempt  to  read  past  an  end  of  file  will  cause  the  program  to 
be  aborted. 

The  end  of  file  condition  can  be  cleared  by  testing  for  end  file 
after  the  file  mark  has  been  read  and  prior  to  another  attempt  to  read. 

The  end  file  condition  for  the  file  INPUT  is  set  by  either  an  end  of  file 
mark  or  a  short  record  (end  of  logical  record). 

INPUTC  also  calls  routines  GETBA  (to  locate  Buffer  Argument 
address),  UMERR  (to  output  Unassigned  Medium  diagnostic),  MARKET  (to 
end  file  output  and  position  file  INPUT  on  ^ogram  abort),  and  XRCL  (to 
go  on  Recall  while  on  1/0  transmission  is  in  progress  and  computation 
can  not  continue). 


23 


c. 


INPUTS 


INPUTS  does  the  core  to  core  transmissions.  It  calls  routine 
KRAKER  to  perform  conversion. 

The  parameter  specifying  the  record  length  may  he  an  arbitrary 
number  of  BCD  characters  less  than  150.  The  record  starts  with  the  leftmost 
character  of  the  location  specified  by  Format  and  continues  ten  BCD  charac¬ 
ters  per  computer  memory  word  for  the  BCD  characters  or  until  a  zero 
character  is  encountered.  If  the  record  ends  in  the  middle  of  a  word,  the 
remaining  characters  axe  ignored.  Each  record  begins  with  a  new  computer 
word.  The  number  of  records  processed  by  each  call  to  INPUTS  depends  on  the 
Format  and  the  length  of  the  list.  If  the  number  is  greater  than  150 
characters,  the  routine  aborts  the  program  and  gives  a  diagnostic. 

INPUTS  also  calls  routines  CONADD  (to  convert  the  calling  address) 
and  MARKFI  (to  end  file  OUTPUT  and  position  file  INPUT). 

d.  KODER 

KODER  is  a  data  conversion  routine.  The  necessary  conversion  is 
specified  by  a  Format.  Any  transmission  of  data  is  handled  by  the  routine 
making  the  call  to  KODER. 

KODER  calls  routines  CONADD  (to  convert  the  calling  address)  and 
MARKFI  (to  end  file  OUTPUT  and  position  file  INPUT  on  the  program  abort). 

<S.  KRAKER 

KRAKER  is  a  data  conversion  routine.  The  necessary  conversion  is 
specified  by  a  Format.  KRAKER  is  a  DECODE  conversion  routine ,and  KODER 
is  an  ENCODE  conversion  routine. 

KRAKER  calls  routines  CONADD  (to  convert  the  calling  address)  and 
MARKFI  (to  end  file  OUTPUT  and  position  file  INPUT  on  program  abort). 

f .  OITPTB 

OUTPTB  does  the  I/O  for  binary  output.  One  logical  record  is 
written  each  time  OUTPTB  is  called;  to  decrease  the  number  of  I/O  trans¬ 
missions,  data  should  be  blocked  in  large  arrays  before  outputting  to  norae 
I/O  device. 

OUTPTB  calls  routines  GETBA  (to  locate  Buffer  Arguments  address), 
UMERR  (to  output  error  message),  and  XRCL  (to  go  on  recall  while  an  I/O 
transmission  is  in  progress). 

g.  OUTPTC 

OUTPTC  does  the  I/O  transmission  for  the  output  file.  The  infor¬ 
mation  is  Btacked  into  a  buffer,  and  I/O  is  done  when  the  buffer  is  filled. 

It  calls  KODER  for  data  conversion.  For  the  output  file  only,  a  line  count 
is  kept,  and,  if  this  count  is  exceeded,  it  causes  an  abort. 

OUTPTC  also  calls  routines  GETBA  (to  locate  Buffer  Argument  aduress), 
UMERR  (to  output  error  diagnostic),  MARKFI  (to  end  file  OUTPUT  and  position 
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file  INPUT  on  program  abort,  and  XRCL  (to  go  on  recall  while  an  I/O 
transnission  is  in  progress). 

h.  OUTPTS 


OUTPTS  performs  the  reverse  of  INPUTS.  ENCODE  routine  makes  use 
of  OUTPTS  where  DECODE  routine  calls  INPUTS. 

OUTJ’TS  also  calls  routines  CONADD  (to  convert  the  calling 
address)  ani  MARKFI  (to  end  file  OUTPUT  and  position  file  INPUT). 


i.  STOP 


STOP  flushes  the  buffer  and  places  a  file  mark  on  the  files 
named  OUTPUT  and  PUNCH  if  they  were  declared  on  the  Program  Header  Card. 

J.  END 

The  purpose  of  END  is  to  position  the  file  named  INPUT  to  the 
beginning  of  the  next  logical  record  if  it  has  not  been  so  positioned 
by  the  program  and  if  it  has  been  declared  on  the  Program  Header  Card. 

k.  EXIT 

EXIT  enters  a  dayfile  message  with  the  name  of  the  routine  and, 
for  END  and  STOP,  follows  the  routine  name  with  an  actual  number  if  one 
appeard  on  the  source  statement. 

No  other  files  sire  terminated  or  positioned  by  these  routines. 

It  is  the  programmer 1 s  responsibility  to  insure  that  other  buffers  are 
flushed  and  that  their  files  are  properly  terminated  or  positioned  at 
the  end  of  a  program. 

12.  ENCODE/DECODE 

ENCODE  and  DECODE  are  system  routines  and  are  comparable  to  the 
BCD  write/read  statements  with  the  essential  difference  that  no  peripheral 
equipment  is  used  in  the  data  transfer.  Information  is  transferred 
under  Format  specifications  from  one  area  of  storage  to  another. 

Entry  is  made  to  the  routines  by  the  following  statements: 

ENCODE (C,N,V)LIST 
DECODE (C,N,V) LIST 

where  N  is  a  Format  statement  number,  a  variable  identifier,  or  a  formal 
parameter  representing  the  associated  Format  list.  LIST  is  the  input/ 
output  list.  V  is  a  variable  identifier  or  an  array  identifier  that 
supplies  the  starting  location  of  the  records.  The  identifier  may  be 
subscripted. 

C  is  an  unsigned  integer  or  an  integer  variable,  simple  or  subscripted, 
specifying  the  length  of  a  record.  C  may  be  an  arbitrary  number  of  BCD 
characters.  The  first  record  Btarts  with  the  leftmost  character  c>f  the 
location  specified  by  Y  and  contains  BCD  characters. 
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a.  ENCODE 


ENCODE  converts  the  information  in  the  list  according  to  Format 
list  N  and  stores  it  in  locations  starting  at  V,C  BCD  characters  per 
record.  If  the  Format  list  attempts  to  convert  more  than  C  characters 
per  record,  a  diagnostic  occurs.  If  the  number  of  characters  converted 
by  the  Format  list  is  less  than  C,  the-  remainder  of  the  record  is  filled 
with  blanks. 

When  C  is  not  a  multiple  of  four,  the  last  record  does  not  fill 
a  computer  word;  the  remainder  of  the  word  is  blank-filled. 

b.  DECODE 

DECODE  converts  and  edits  information  from  records  consisting 
of  C  consecutive  BCD  characters  starting  at  Address  V  according  to 
Format  list  N  and  stores  it  in  the  I/O  list.  When  the  Format  list 
specifies  more  than  C  characters  per  record,  a  diagnostic  is  provided. 

If  DECODE  attempts  to  process  a  character  illegal  under  a  given  conver¬ 
sion  specification,  a  diagnostic  occurs.  When  fewer  than  C  characters 
are  specified,  the  remainder  of  the  word  is  ignored. 

Since  these  routines  are  system  routines,  no  flow  charts  will 
be  furnished,  and  all  diagnostics  will  come  from  the  FORTRAN  system. 
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SECTION  IV 


MAIN  PROGRAM  AND  SUBROUTINE  MAIN2 

1.  MAIN  and  MAIN2 

The  MAIN  program  is  a  requirement  of  the  CDC  system.  When  called 
by  the  system,  all  of  Blank,  and  Numbered  COMMON  is  zeroed.  The  MAIN 
program  may  consist  of  as  many  subroutines  as  necessary.  The  only 
functions  that  MAIN  serves  to  this  program  besides  meeting  the  system 
requirement  is  to  move  the  vehicle  table  directory  from  Labeled  COMMON 
to  Numbered  COMMON  to  initialize  program  block  data,  to  initialize  the 
random  number  generator,  and  to  call  MAIN2. 

Subroutine  MAIN2  moves  the  vehicle  2  table  directory  from  Labelled 
COMMON  to  Numbered  COMMON. 
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MAIN 


CALL  FTNBIN  (1,0,0) 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


BDATA1 

BDATA2 

BDATA3 

BDATAU 

BDATA5 

BDATA6 

BDATAT 


J  optim; 

\-2 

MAXT3=MAXT 

10  20  1 

=  1, 
L 

LJ  STABL3 ( I ) =STABLE ( I ) 


■  ~ 

rstart=runif(iio) 


CALL  MAIN 2 


ICHANE(2)=1 

— - 1 


CALL 


1  — - 

CHAIN(l)  - 


Initialize  random 
number  generator 

Initialize  second 
vehicle 


RETURN 


MAIN  2 


MAXT3-MAXT 


-  DO  20  1=1 ,MAXT 

__J _ , 

STABL3 ( 1 ) =STABLE(l)  | 


RETURN 
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2.  BDATAI  -  Block  Data  Subroutine 


This  block  data  subroutine  establishes  all  basic  directory  available 
maneuvers. 

3.  BDATA2  -  Block  Data  Subroutine 

This  block  data  subroutine  establishes  all  data  table  names. 

4.  BDATA3  -  Block  Data  Subroutine 

This  block  data  subroutine  establishes  control  variable  table 
names  CTABLE  and  DALALT,  for  vehicle  1. 

5.  EEATA4  -  Block  Data  Subroutine 

This  block  data  subroutine  is  a  dummy  routine. 

6.  BLATA5  -  Block  Data  Subroutine 

This  block  data  subroutine  establishes  control  variable  table 
names  CTABLE  and  DALALF  for  vehicle  2. 

7 •  BDATA6  -  Block  Data  Subroutine 


This  block  data  subroutine  establishes  all  additional  directory 
variable  names. 

8 .  BDATA7  -  Block  Data  Subroutine 

This  block  data  subroutine  sets  all  AESOP  parameter  optimization 
variables . 

9*  SPRANG  -  Random  Number  Generator 


Random  number  generator  for  AESOP  program.  See  Volume  IV. 
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10 .  CHAIN  -  Overlay  Control  Program 
Purpose: 

Controls  program  overlay  structure. 

Method : 

CHAIN  controls  the  following  seven  program  overlays: 

OVERLAY  1,  MAIN-MAIN  PROGRAM  FOR  TRAJECTORY  CALCULATION 
OVERLAY  2,  EXE-EXECUTIVE  PROGRAM  FOR  TRAJECTORY  CALCULATION 
OVERLAY  3,  CTLS-VARIATIONAL  OPTIMIZATION  CONTROL  PROGRAM 
OVERLAY  U,  REV-TRAJECTORY  REVERSE  INTEGRATION 
OVERLAY  5,  GRAPH-GRAPHICAL  ROUTINES 
OVERLAY  6,  DGAMES-DUMMY  OVERLAY 
OVERLAY  7,  CTAE-PARAMETER  OPTIMIZATION  CONTROL 
Usage: 

Entry  is  made  to  the  routine  with  the  following  statement: 

CALL  CHAIN (N) 

where 

N  =  Overlay  number  to  be  loaded 
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II.  MSGONE  -  Combat  Message  Subroutine.  Vehicle  1 


Preserves  the  current  combat  message  for  vehicle  1 
subsequently  printed  by  EXE 


MSGONE 

i 


RETURN 


12.  MSGTWO  -  Comnat  Message  Subroutine,  Vehicle  2 

Preserves  the  current  combat  message  for  vehicle  2 
subsequently  printed  by  vehicle  2. 


MSGTWO 


1 


jDO  10  i 

-  1,  6 

> 

MSG2i 

=  MSGi 

_ J 

r 

'  10  CONTINUE  | 

RETURN 


Message  is 


Message  is 


SECTION  V 


PROGRAM  MAIN1  AND  SUBROUTINE  MAIN12 


This  program  Is  executed  once  per  case.  The  nominal  values  are  set, 
and  subscripts  to  BCD  word  input  are  searched  for.  DATA2  is  read  m,and 
a  tape  is  prepared  in  binary  to  be  read  again  in  program  EXE  for  each 
trajectory.  DATA1  is  read  in  this  chain  and  never  read  again  for  that 
case.  The  MAIN1  program  determines  whether  or  not  the  two  vehicle  option 
is  requested  (INDN0M=2)  and  whether  or  not  a  variational  optimization 
formulation  option  is  to  be  employed  (0PTIMA=2). 

Subroutine  MAIN12  performs  the  MAIN1  function  for  vehicle  2.  However, 
since  MAIN12  is  only  called  when  a  second  vehicle  exists,  the  test  for 
a  second  vehicle  is  omitted.  Again,  since  a  variational  option  is  re¬ 
quested,  it  must  be  exercised  through  the  first  vehicle;  the  variational 
test  is  omitted  from  MAIN12. 

A  flow  chart  for  MAIN1  follows;  MAIN12  is  identical  to  MAIN1  with 
the  exceptions  noted  above. 
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READA  and  READA2-  Input  Routines  for  Vehicle  1  and  Vehicle  2  Data 
Purpose 


To  provide  a  general  method  of  reading  a  variable  field  data  card  and 
assigning  variable  length  table.  Data  may  be  read  into  symbolic  locations  in 
memory. 

Method 

Decimal,  Octal,  and  Integer  numbers  are  converted  to  binary  integers.  BCD 
information  is  stored  in  six  character  words. 

Cftd-Peiia^g 

The  variable  name  punched  in  columns  1-6  is  the  location  into  which  the 
first  data  word  will  be  loaded.  The  variable  field  information  ie  for  re¬ 
location.  A  fixed  point  integer  punched  anywhere  in  the  field  (67-72)  will 
be  treated  as  a  subscript  to  the  variable  name  punched  in  column  1-6.  Nega¬ 
tive  integers  punched  in  columns  67-72  will  be  in  violation  of  the  subroutine. 
The  first  blank  character  found  in  the  card  to  the  right  of  column  12  termin¬ 
ates  loading  from  the  card.  One  exception  tc,  this  is  BCD  data.  Nine  6  char¬ 
acter  words  may  be  loaded  including  blanks. 

The  general  character  of  the  data  to  be  loaded  is  determined  by  a  three 
letter  pseudo-operation  punched  in  columns  8-10.  The  pseudo-operations  are: 

DEC  or  blank,  OCT,  INT,  BCD,  PAR,  and  TRA.  The  pseudo-operation  TRA  is  a 
method  of  exit  from  the  subroutine. 

Pg£lffl&l  Wa 

Decimal  data  beginning  in  column  12  and  ending  in  column  66  is  converted 
to  binary  and  loaded  into  the  symbolic  location  punched  in  column  1-6  sub¬ 
scripted  by  the  integer  punched  in  column  67-72.  Signs  are  indicated  by  +  and 
-  preceding  the  number.  All  unsigned  numbers  are  treated  as  positive.  If 
either  the  characters  E  or  .  or  both  appear  in  the  decimal  data  word,  the  word 
is  converted  to  a  floating  binary  number.  The  decimal  exponent  used  in  the 
conversion  is  the  number  which  follows  immediately  after  the  character  E. 

This  number  may  have  a  +  or  -  sign  preceding  it.  If  the  character  E  does  not 
appear  the  exponent  is  assumed  to  be  zero.  If  a  decimal  point  does  not  appear 
it  is  &88’ffied  to  be  at  the  right  of  the  number.  Unless  it  is  the  only  word 
or  the  first  word  on  &  card  then  it  is  assumed  to  be  an  integer. 
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All  the  exasples  below  are  equivalent 


1.  12.345B03 

2.  12.3450+03 

3.  12.345E3 

4.  12345000 

5.  12345. 

6.  1.234504 

7.  1234500E-02 

8.  +1234500E-2 


Note  that  in  the  examp lea  above  all  decimal  words  have  decimal  points. 

If  the  first  word  on  a  card,  or  if  it  happens  to  be  the  cr.lv  word  on  a  card 
and  it  does  not  contain  a  decimal  point,  the  word  will  be  conveited  to  binary 
integer. 

Octal  Data  -  OCT 

The  Octal  data  is  loaded  the  same  as  decimal  data  but  must  have  OCT 
punched  in  column  8,  9,  and  10.  All  data  is  converted  tw  binary  with  binary 
point  assumed  at  the  right  end  of  each  word. 

Hollerith  Data  -  BCD 

Hollerith  information  is  loaded  from  column  13  through  66  and  assigned 
consecutive  locations  for  every  6  characters.  A  msjdmum  of  nine  6  character 
words  may  be  punched  on  any  one  card  and  the  number1  of  words  must  be  punched 
in  column  12.  A  subscript  may  also  be  punched  in  column  67-72. 

Transfer  -  TRA 

The  purpose  of  the  TRA  card  is  to  transfer  control  from  the  subroutine 
back  to  the  main  program.  TRA  must  be  punched  in  column  8,  9,  and  10.  The 
subscript  field  is  not  used.  A  REWIND  may  be  punched  beginning  in  column  12. 

Only  the  R  is  checked  and  the  only  use  is  for  the  rewind  of  a  data  tape. 

Integer  data  begins  in  column  12  and  ends  in  column  66.  INT  is  punched  in 
column  8,  9,  and  10.  It  may  be  relocated  with  respect  to  the  BCD  name  by  punch¬ 
ing  a  subscript  integer  in  column  67  through  72.  If  only  one  data  word  is  punched 
per  card,  column  8,  9,  and  10  may  be  left  blank. 

Parameter  -  PAR 

Integer  data  begins  in  column  1?.  PAR  is  punched  in  columns  8, 9, and 
10.  It  may  be  relocated  with  respect  to  the  BCD  name  by  punching  a  sub¬ 
script  integer  in  columns  67  through  72. 


5rr?r  Usmna 

A  message  is  written  on  the  output  tape  describing  the  type  of  error  en¬ 
countered.  If  an  error  is  encountered,  execution  of  the  case  is  deleted  and 
the  subroutine  only  searches  for  other  possible  errors  in  the  data. 
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The  following  error  messages  are  possible. 

1.  Symbol  not  in  directory. 

2.  Column  12  is  blank. 

If  a  bad  pseudo-operation  is  punched  in  column  8,  9,  and  10  the  subroutine 
will  treat  it  as  decimal  data. 

All  checking  for  redundancies,  end  of  tape,  format  errors,  etc.,  is  handled 
by  FORTRAN  system  input /output  routines. 

Usage 

No  initialization  is  required,  the  entry  is  established  by  a: 

CALL  READA  or  CALL  READA2 

Subroutines  called  and  used  by  READA  and  READA2  other  than  normal 
FORTRAN  system  routines. 

DIPLAC  DSERCf<2)  PACBCO 

DEF  PACKR  SVIU) 

TABRE(2)  READ31 

LINES  BIBLOCK 


Data  Preparation 

The  first  card  expected  by  READA  or  READA2  is  a 
STCASE  TAB 

with  the  S  beginning  in  column  1  and  TAB  punched  in  8,  9,  and  10.  Following 
this  card  is  a  set  of  cards  rMch  define  the  table  sizes  necessary  for  that 
case. 

Example:  TTAB01  10 

TTAB02  20 

On  the  above  example  TTAB01  is  punched  beginning  in  column  1.  The  numbers 
10  and  20  are  punched  in  column  12  and  indicate  the  number  of  machine  cells 
necessary  for  that  table .  Any  number  of  tables  may  be  assigned  as  long  as  the 
total  number  of  machine  cells  does  not  exceed  4000.  Follow  all  table  assignments 
with  a  TRA  punched  in  column  8,  9,  and  10.  The  next  data  required  by  the  sub¬ 
routine  is  DATA2  (this  is  data  that  is  read  at  the  beginning  of  each  trial  and 
valid  step)  this  may  be  made  up  with  any  combination  of  OCT,  BCD,  INT 
cards.  All  this  data  is  written  on  a  data  tape  and  reserved  for  future  use. 

If  the  last  TRA  card  has  a  R  punched  in  column  12  this  data  tape  will  be  re¬ 
wound  as  soon  as  the  test  is  made.  This  is  not  necessary  for  the  prognum  to 
work,  just  more  efficient  if  used. 
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The  next  eat  of  data  expected  by  the  subroutine  is  LaTAI  (this  is  data 
which  is  only  read  one  time  per  case).  This  data  should  begin  with: 

STCASE  DATA1 

The  STCASE  is  punched  beginning  in  column  1  and  DATA1  beginning  in  column 
12.  This  data  is  terminated  with  a  TRA  beginning  in  column  8. 

A  flow  chart  for  READA  is  provided.  Subroutine  V.EADA2  is  identical  to 
READA  except  for  the  COMMON  block,  tape  units,  and  auxiliary  routines  employed. 


1*0 


1*2 
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2.  DOfiDER  -  Dirt-  rtory  Order  Output  Routine 


Purpose: 

To  provide  an  ordered  listing  of  the  directory  on  user  request. 
Method : 

When  the  input  DLIST  =  1,  en  ordered  directory  listing  is  output 
ahead  of  the  trajectory  print.  The  directory  is  first  sorted  in 
numerical  order  and  printed;  then  it  is  sorted  in  alphabetic  order 
and  printed.  The  sort  routines  SHELL  and  SHELLX  perform  the 
numeric  and  alphabetic  sorts,  respectively. 

Remarks: 

It  is  assumed  that  vehicle  1  and  vehicle  2  directories  are  identical; 
hence,  only  one  directory  order  output  routine  is  provided. 


doxD£/z 
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3.  f  -CKL  -  Pack  Routine 


Purpose: 

This  routine  packs  two  words  into  one. 

Method: 

The  routine  takes  the  first  five  characters  of  one  word  and  the  first 
character  of  the  second  word  and  packs  this  into  one  word. 

Usage: 

Entry  is  made  to  this  routine  by  the  following  statement: 

CALL  PACKL  (A,ADOT,P) 
where, 

A  =  the  five  char ■.f'  er  word. 

D  =  the  single  chs  acter  word. 

ADOT  =  the  result  of  the  packed  word. 

This  subroutine  uses  ENCODE  which  is  a  system  subroutine.  For  more 
information,  check  ENDODE  write “Up. 

PACKL 
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1*.  DSERCH  and  D3ERCH2-  Directory  Search  Routine  for  Subscripts 

Purpose: 

To  provide  a  method  of  searching  the  directory  to  find  the  subscript 
corresponding  to  a  BCD  argument. 

Methods 

The  routine  searches  the  directory  for  the  exact  BCD  name  required  by 
the  argument.  When  an  equal  compare  has  been  found,  the  corresponding 
subscript  is  returned  as  a  fixed  point  integer.  An  error  message  will 
result  if  the  BCD  name  is  not  in  the  directory. 

Usage: 

Entry  is  made  to  the  routine  with  the  following  statement: 

CALL  DSERCH  (STM,LOC,ICCK) 


idle  re 

SIM  *  BCD  name  being  searched  for. 

LOC  ■  The  location  the  corresponding  subscript  will  be  stored  in. 

I  COM  -  Error  code  in  case  a  conpare  is  not  found. 

If  an  error  occurs  In  the  BCD  name,  LOC  is  set  to  zero.  Location  I COM 
is  set  to  one  and  a  message  is  printed  stating  that  the  BCD  name  is  not 
in  the  directory. 

No  subroutines  are  called  from  these  subroutines. 

Subroutine  DSERCH2  is  identical  to  DSERCH  except  for  the  COMMON 
blocks  employed.  A  flow  chart  of  DSERCH  is  provided. 
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DSERCH 
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5 .  ST0P1  -  General  atop  Routine 


Purpose: 

To  print  out  a  stop  number  and  return  to  the  next  case. 

Method: 

To  initialise  ICHANB,  print  a  stop  number  and  return  the  program 
to  segment  MAIN1  for  re-initialisation  for  the  next  case. 

Note:  ST0P1  was  used  far  the  name  of  this  routine  because  there 
was  a  system  routine  by  the  name  of  STOP. 

Usage: 

Entry  is  aade  to  this  routine  by  the  statement: 

CALL  3T0P1 

If  this  routine  Is  called  a  statement  is  printed: 

STOP  LINK  N 
where, 

N  “  Tta  sepirmt  lin*  ST0P1  was  called  from 


N  -  1 

MAflil 

aegaent 

N  -  2 

IBS 

segesnt 

N  -  3 

iJTLS 

segment 

N  -  4 

m 

segaant 

N  =  5 

GRAPH 

segment 

N  =  6 

DGANES 

segment 

N  »  7 

CTAE 

segment 

Subroutines  LIKES ,  CHAIN  and  Normal  I/O  FORTRAN  routines  are  called 
from  tlds  routine. 


I 

_ .  X  . .  . 
\ _ ^ 
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6.  ZZEBR  -  Error  Boutar.e 
Purpose; 

To  provide  a  aethod  of  printing  a  atop  number  code  end  ending  the 
execution  of  a  given  case. 

Method; 

The  routine  obtains  the  required  etop  number  from  the  calling  program, 
prints  It,  and  calls  tlie  routine  CP0P1.  The  statement  STOP  NUMBER 
XXXXX  is  printed. 

Usage; 

Entry  is  made  to  this  routine  by  the  statoent: 

CALL  EXERR(N) 

where  N  is  the  stop  number  desired  to  print. 

This  routine  calls  ST0F1  and  the  normal  I/O  FORTRAN  routines. 

EXERR 


I 
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7.  TSRCH  and  TSBCH2  -  Directory  Search  for  Table  Subscript 


Purpose: 

To  provide  a  method  of  searching  the  directory  for  table  subscripts. 

Mbsd: 

The  routine  searches  the  directory  for  the  exact  BCD  name  required  by  the 
argument.  When  an  equal  has  lean  found  the  corresponding  subscript  is 
returned  as  a  fixed  point  integer. 

Usage: 

fiatry  is  made  to  the  routine  with  the  following  statement: 
ail.  TSRCH  (SXH2,L0C2,N2,  IER) 


where 

SIM2  "  BCD  name  of  argument. 

L0C2  ”  Location  of  first  subscript. 

M2  “  dumber  of  sequential  subscripts  to  return  with. 

IER  ™  Error  Code: 

IER  is  set  to  a  plus  1  if  the  BCD  argument  does  not  c empire. 

IER  is  set  to  a  minus  1  if  the  BCD  argument  does  compare. 

Ho  other  subroutines  are  called  from  these  subroutines. 

TSRCH2  is  identical  to  TSRCH  except  for  the  COMMON  blocks  employed.  A 
flow  chart  for  TSRCH  is  provided. 
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T  S  RCH 


fttTURN 
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8.  readB  and  READB2  -  Binary  Stage  Data  Input  Routines 


Riroose: 

To  read  the  stage  data  from  the  data  tape  (TAPK16  or  TAPE26). 

Usage: 

CALL  READB  (ISFIN) 

ISFIN  is  returned  with  the  following  Yilue: 

ISFIN  <  0  always. 

ISFIN  **  -10  data  for  the  last  stage  has  been  read. 

READB  rewinds  TAPEL6  when  the  data  for  the  last  stage  has  been  read.  For 
each  call  to  READB,  the  stage  data  for  one  stage  Is  read  In.  Stage  data 
is  ordered  sequentially  on  TAPE16  in  the  order  that  the  stage  data  appears 
in  the  input  deck. 

READB  say  be  called  only  after  READA  has  been  called  once,  since  READA 
p repaves  TAPKL6  (rla  the  ad-hoc  blocking  routine  BIBLOCK). 

READB2is  identical  to  READB  except  for  the  tapes  and  COMMON  blocks  employed. 
A  flow  chart  for  READB  is  presented. 


5«* 
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9.  BAESOP  --  Parameter  Optimization  Input  Subroutine 
Purpose: 

To  read  in  the  parameter  optimization  program  AESOP,  Volume  IV, 
input  data. 

Method : 

Data  is  read  in  conventional  FORTRAN  NAMELIST  manner.  NAMELIST  name 
is  IAES0F, 
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10.  Dime  -  Integer  Shift  Routine 


Purpose : 

To  let  the  routine  right  justify  a  number  so  that  the  displacemsnt 
(col.  67-72)  on  an  input  card  may  be  punched  anywhere  in  the  field. 

The  displacement  field  is  read  into  the  machine  with  an  A  format  and 
right  justified  before  the  conversion  is  made  to  a  binary  integer. 

Dsaae: 

Ehtry  is  made  to  this  routine  with  the  following  statement: 

CALL  Dime  (RA1, INC, BLANK) 
where, 

RA1  -  The  six  character  BCD  array. 

INC  -  Location  that  the  converted  integer  will  be  stored  in. 
BIANK  -  Blank  character  used  for  coaparing. 

Subroutines  Called: 

PACXR  HEAD31 
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11.  DBF  and  DEF2  -  Heading  and  Page  Eject 

Purpose: 

To  provide  page  ejection  and  title  print. 

Method: 

Initially  the  current  page  number  (NPAGE)  is  incremented  by  1. 
The  page  is  ejected  and  return  is  made  to  the  calling  program. 


Entry  Is  made  by  the  foliating  statements : 

CALL  DBF  or  CALL  DEF2 

Only  the  normal  I/O  FORTRAN  routines  are  used  with  this  routine, 
is  an  entry  point  used  by  vehicle  2. 


DEF,  DEF2 


1 


NPAGE  «  NPAGE  +  1 
LONG  =  0 


RETURN 


DEF2 
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12.  TABRE  and  TABRE2  -  Table  Dimension  Subscript  Routines 


Purpose? 

This  subroutine  is  called  from  H8ADA  or  READA2  and  computes  sub¬ 
scripts  such  that  the  table  dimension  requirements  may  be  variable. 

Method; 

Uses  input  data  prepared  by  the  user  to  compute  subscripts  for 
variable  table  assignments. 

Usage : 

This  subroutine  is  ca.l  ■  sd  from  subroutine  READA  or  KEADA2  one  time 
per  case, and  linkage  is  obtained  by: 

CALL  TABRE  (TABSTP) 

where  TABSTP  is  an  indicator  set  false  by  TABRE  or  TABRE2  when 
READA  or  READA2  will  not  recall  TABRE  or  TAERE2 . 

Subroutines  Called: 

DIPLAC  LINES 

Error  Massages; 

1.  Symbol  does  not  exist  in  table  list. 

2.  Total  table  size  N  exceeds  maximum  size  NJ 
where  N  is  the  required  and  N1  is  the  maximum. 


Data  Preparation? 

Control  will  be  transferred  to  subroutine  TABRE  or  TABRE2  when 
READA  or  READ  processes  a  control  card: 

STCASB  TAB 

STCASB  beginning  in  colura  1  and  TAB  punched  in  column  8,  9  and  10. 
Following  this  card  will  be  the  cards  requesting  table  sizes. 

TTAB01  10 

ATAB01  20 

TTABOl  and  ATAB01  punched  beginning  in  column  1  and  the  required 
machine  cells  (10  and  20  in  this  case)  punched  beginning  in  column  12. 
Anything  punched  past  column  15  will  not  ts  used.  After  all  table 
assignments  a  TRA  should  be  punched  in  column  8,  9  and  10. 
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whore, 

LCCUNT  =■  A  fixed  point  variable  or  constant  indicating  the 
number  of  lines  to  be  printed. 

Subroutine  DBF  is  called  from  this  routine.  LINES2  is  an  en+ry  point 
used  by  the  second  vehicle. 


LINES,  LINES2 

1 

LONG  *  LONG  +  LCOUNT 


1 

RETURN 


LONG  - LCOUNT 


RETURN 
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14  .  PACBCD  -  Packs  Six  Character  Words 
Purpose: 

To  pack  BCD  words  into  aix  character  words. 

Method; 

The  first  character  is  converted  to  an  integer  by  the  system  routine, 
DECODE.  This  integer  is  the  number  of  six  character  words  contained 
on  the  card.  ENCODE  is  then  used  to  pack  that  number  of  six  character 
BCD  words. 

Usage: 

Etatry  is  made  to  this  routine  by  the  following  statement: 

CALL  PACBCD  (RA,FI,JJ) 
idle  re, 

RA  -  is  the  first  location  of  the  array  being  converted. 

FI  -  is  the  first  location  where  the  results  will  be  stored. 

JJ  -  is  the  number  of  aix  character  words. 

This  subroutine  uses  ENCODE  and  DECODE  which  are  system  routines.  For 
more  information,  check  write-up  for  ENCODE  and  DECODE. 
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PACBCD 
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15.  PaCKR  -  Packs  BCD  Characters 


Parma : 

Racks  BCD  Characters  into  words. 

Msibsi-- 

This  routine  uses  ENCODE  to  convert  BCD  information  to  a  binary  integer. 
No  I/O  transmission  takes  place. 

Usage : 

Entry  is  made  to  this  routine  by  the  statement: 

CALL  PACKR  (I1,I2,N) 
where, 

11  -  Contains  the  BCD  integers  to  be  converted. 

12  -  Location  of  where  converted  numbers  are  to  be  restored. 

N  -  Number  of  words  to  be  converted. 

This  routine  uses  ENCODE  which  is  a  system  routine.  For  more  information 
check  ENCODE  write-up. 
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PACKR 


20,  XMAT,  12 


Il(i) 


RETURN 
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REA031  -  Binary  Conrerslon  Routine 
Purpose: 

To  convert  from  BCD  to  Octal,  Floating  Point  and  Integer  numbers. 

Method: 

This  routine  takes  the  BCD  display  code  and  converts  it  to  the  necessary 
binary  data  depending  on  the  operation  code. 

Usage: 

Bitry  is  made  to  this  routine  by  the  following  statement. 

CALL  READ31  (IFI,PJ,FI, JJ) 
where, 

IFI  -  is  a  code  that  determines  if  its  Octal,  Floating  Point  or 
Integer  conversion. 

FI  -  is  the  location  where  the  answers  are  stored. 

FJ  -  contains  the  BCD  characters  to  be  converted. 

JJ  -  the  number  of  words  to  be  converted. 

This  subroutine  uses  the  system  routine  DECODE.  For  more  information  on 
DECODE  check  the  write-up  fcr  DECODE. 
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IT.  SVI  and. SVI2  -  Block-Save  Routines 

Purpose t 

To  place  a  number  of  variables  into  an  array.  The  location  of  each 
piece  of  data  is  contained  in  any  array.  The  routines  also  equate 
data  flagged  by  the  PAR  input  subject  to  the  appropriate  optimizing 
parameter . 

Method: 

£ach  piece  of  data  is  picked  up  sequentially  beginning  with  A  and 
stored  into  an  array  beginning  with  the  subscript  1ST ART. 

Usage: 

Entry  is  made  to  the  routine  with  the  following  statement. 

CALL  SVI  (ICCK,N,ISTABT,A,  IA.PAR0PT) 
where, 

ICOH  *  Type  of  data  being  saved. 

N  =»  Number  of  words  being  saved. 

1ST ART  “  Common  subscript  for  A. 

A  *  Location  where  value  is  being  moved  from. 

IA  = Optimization  parameter  suffix  area. 

PAROPT  =Flag  indicating  data  is  to  be  set  equal 
to  an  optimizing  parameter. 

No  other  routines  are  called  from  this  routine. 

Subroutine  SVI2  is  identical  to  SVI  except  for  certain  COMMON 
blocks.  A  flov  chart  is  presented  for  SVI. 


70 


&VX 


— (  K  3 — 

V-.  — 

-z 

' 

[ _ 

V  1 
>‘A 

v  —  »* 

/?C/^  ^ 

1 _ 

8HSB 

\tTfiQce  a)-  ALfiMAa) 
J- J  *> 
jUA.  J« 


n 


18.  BIBLOCK  -  Data  Output  in  Blocks 


To  prepare  and  output  data  In  large  blocks  rather  than  a  card  at  a  tine. 

Thj  ae  dimension  arrays  are  used  by  this  routine  to  input  data  too.  The 
data  is  read  into  the  nachine  in  BCD  and  than  decoded  depending  on  the 
pseudo-operation  punched  on  the  card.  After  decoding  all  data  ia  treated 
as  integers,  then  stored  in  one  of  the  three  d inclusion  arrays.  Just  prior 
to  this  call,  a  subscript  is  eitored  which  defines  which  cell  in  the  array 
the  nuaber  will  be  stored  into  when  it  is  read  back  into  the  nachine.  When 
either  of  three  buffers  are  filled,  all  three  buffers  are  flashed  out  on 
tape.  If  anyone  of  the  buffers  fail  to  hare  anything  stored  in  it  a  duany 
cell  is  set  up.  This  is  necessary  because  of  the  way  the  Fortran  eye  ten 
works.  It  is  iafsossible  to  store  zero  words  on  tape. 

Usage 

Linkage  is  Bade  by  the  following  call: 

CALL  BIBLOCK(lID,JJ,FI,ITABLB) 

where 

I ID  *»  the  subscript  which  relocates  the  integer  in  core. 

JJ  =  the  number  of  integers  to  be  stored  in  the  array. 

FI  m  the  integer  to  be  stored  in  array. 

ITABI£  *  contains  a  nuaber  defining  which  of  the  three  arrays  to 
store  into.  In  this  case  ITASLE  is  either  0,  1,  or  2. 

No  initialization  or  printing  is  necessary  for  this  routine. 

?abmUflg.g..Qt3Igsl 

The  only  routines  called  are  the  normal  output  FORTRAN  routines. 
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19.  SHELL  -  Numeric  Sorting  Subroutine 


Purpose: 

To  store  an  array  in  ascending  order. 
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LIMBO  *  I  ARRAY  (I) 

I  ARRAY  (I)  -  I ARRAY  (II) 

I  ARRAY  (II)  »  UMBO 
LIMBO  -  KEY  (I) 

KEY  (I)  -  KEY  (II) 

KEY  (II)  .  UMBO 


SECTION  VI 

PROGRAM  EXE  AND  SUBROUTINE  EXE2 


EXE  is  the  executive  program  that  drives  both  vehicle  forward  trajectories. 
EXE  controls  the  major  logical  decisions  that  must  be  made.  The  subprograms 
of  EXE  are  responsible  for  accomplishing  the  calculations  which  fall  into 
their  respective  domains  of  specialisation.  Since,  during  any  one  call,  it 
is  not  feasible  for  a  subprogram  to  do  all  types  (e.g.  initialisation,  print¬ 
ing,  function  calculations,  etc.)  of  computations  delegated  to  it,  the  sub¬ 
programs  are  segmented  into  functional  units;  access  to  a  particular  func¬ 
tional  unit  of  a  subprogram  is  accompli  shed  by  calling  that  subprogram  with 
an  argument  called  the  entry  point.  For  most  of  the  subprograms  of  etr  there 
is  the  following  correspondence  between  entry  points  and  functional  units: 


Functional  Unit 


1  pre-data  initialisation  (to  be  done  at 

the  beginning  of  each  trajectory  before 
data  is  read) 


2  post-data  Initialisation  and/or  initial 

transformation  (to  be  done  at  the 
beginning  of  each  stage  after  data  is 
read) 

3  main  calculation  (e.g.  calculate 

derivatives) 

U  initial  print;  generally  this  in  for 

print  of  that  which  is  calculated  at 
entry  point  2. 

5  code  print;  to  identify  the  values 

printed  at  entry  point  6. 

6  value  print;  for  printing  time  history 

of  variables  calculated  during  tra¬ 
jectory. 

7  for  specifying  variables  that  are  to  be 

integrated.  Each  variable  that  is  to 
be  integrated  should  have  its  deriva¬ 
tive  comp  iced  at  entry  point  3. 

8  h-transformation  (or  miscellaneous 

chores) 

In  addition  to  the  so  called  "standard  subprograms"  of  EXE  there  are  a 
few  which  are  of  such  a  special  nature  that  the  standard  entry  points  no 
longer  apply,  or  else  perhaps  .tn  additional  entry  point  is  included  for  same 


special  purpose.  Those  subprograms  which  h»re  multiple  entry  points  which 
deviate  from  the  standard  are  MDUNF,  INTDRT,  EITRAN,  PLTS,  MANTGT ,  and  EXE2, 

The  structure  of  EX*  la  integral  with  the  structure  for  accomplishing 
the  numerical  integration.  This  is  necessitated  by  the  premise  that  EXE 
should  have  control.  As  a  result,  the  numerical  integration  routine,  MDCENF, 
is  a  slave  to  EXE.  The  relationship  between  HUGE?  and  EXE  differs  distinctly 
from  that  of  the  standard  subprograms  and  EXE.  The  KDCNF  writeup  contains 
a  complete  description  of  the  entry  points  and  their  respective  functions. 
EXTRAM  is  a  special  subprogram  which  is  in  reality  a  subdriver  for  accomplish¬ 
ing  the  initial  transformation  and  the  h-tranaformation. 

One  great  benefit  of  this  type  of  organisation  of  EXE  is  that  it  is 
general;  any  trajectory  program  may  be  set  up  this  way.  In  particular,  this 
fact  was  used  for  the  programming  of  the  reverse  trajectory.  REV  is  the 
executive  program  that  drives  the  reverse  trajectory  and  hence  the  structure 
of  REV  is  virtually  isomorphic  td  EXE. 

Ccmlcatlon  between  EXE  and  its  subprograms  is  accomplished  by  setting 
indicators.  However,  of  all  the  indicators  used  in  EXE  proper,  EXE  sets  moot 
of  tham  itself.  The  following  is  a  list  of  all  those  indicators  that  are  set 
by  subprograms  of  EXE  for  the  purpose  of  comm  mi  cation  with  EXE  proper. 


Indicator 

KlMPAS  and  MIMPAS2 
IMDPAil 

INGHCM  and  INGH0M2 
INDSTE  and  INDSTE2 
INDSTG  and  IMDCTG2 
lOOr,  and  LG0K2 


Subprogram 

MDQMP  and  MIMINF2 

MANTGT 

STCTST  and  STGTST2 

any  subprogram  (denotes  error) 

STGTST  and  STGTST2 
STCTST  and  STGTST2 


One  of  the  most  critical  functions  of  EXE  is  to  control  the  integration 
step  slse.  EXE  itself  actually  does  very  lit vie  >f  the  calculation  for  the 
step  sise.  let,  it  governs  the  sequence  of  or 11c  that  are  made  to  subprograms 
which  determine  a  step  sise  to  meet  their  res  active  requirements.  Earn  must 
then  weigh  each  factor  against  the  other  and  select  that  step  else  which  is 
"most  reasonable".  A  summary  of  ths  step  si, e  control  procedure  follows: 

The  logic  in  EXE  that  controls  the  Integration  step  else,  HO,  during 
the  forward  trajectory  is  necessarily  somewhat  complicated  because  of  all  the 
factors  that  have  to  be  considered.  "Staging"  and/or  "time  points"  may 
require  the  step  sise  to  be  either  cut  bank  or  Increased.  Depending  cm  the 
situation  the  integrated  variables  may  have  to  be  backed  up  one  step. 


MIMUF(5)  and  MIMT’iF2(5)  are  cte  entries  to  the  integration  routines 
which  check  the  truncation  error,  STGT$T(3)  and  STGTdT2(3)  are  the  entries 
to  the  stage  test  routines  which  check  the  staging  variable  Is)  to  see 
when  they  pass  from  one  side  to  the 
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other  of  their  respective  staging  values.  The  MIMINF  and  STGTfjT  writeups 
should  be  referred  to  if  it  is  desired  to  knov  how  these  routines  determine 
the  step  size  when  they  are  granted  this  responsibility. 

The  following  points  summarize  the  logic  involved  in  controlling  the 
step  size: 

(1)  An  integration  step  is  a  "trial  step"  until  it  has  been  accepted 
as  valid  by  MIMINF(5),  MIMINF2(5),  STGTST(3),  and  STGTST2(3) 

(2)  If  MBHNF(5)  or  MBtniF2(5)  rejects  the  trial  step,  then  the  inte¬ 
grated  variables  are  backed  up  one  step, and  a  nev  trial  step  is 
made  with  the  step  size  (HO)  which  M3KENFf5)  and  MXMINF2(5)  have 
determined . 

(3)  Only  after  MIMUIF(5)  and  MIMINF2(5)  accept  a  trial  step  does 
STGTST(3)  and  STGTST2{3)  have  the  opportunity  to  reject  it.  If 
STGTST(3)  or  STGTST2(3)  reject  a  trial  step,  then  the  integration 
is  backed  up  one  step,  and  a  new  trial  step  is  made  with  the 
step  size  (HO)  which  STGTST(3)  or  STGTST2(3)  have  determined. 

(4)  It  is  assumed  that  the  HO  determined  by  (2)  or  (3)  when  a  trial 
step  is  rejected,  is  less  than  the  HO  which  produced  the  bad  step. 

(5)  After  a  valid  integration  step  has  been  taken,  the  next  time  point, 
TIMPT,  is  picked  up.  TIMPT  will  be  the  first  time  point  greater 
than  TIMES  +  AMUfER. 

(6)  The  next  trial  step  must  have  an  HO  4  TIMPT  -  TIMES. 

(7)  After  a  valid  step,  the  HO  for  the  next  trial  step  will  have  been 
determined  or  at  least  sanctioned  by  M3MDfF(5)  and  MIMIMF2(5). 
Paragraph  (6)  merely  imposes  a  further  condition  in  addition  to 
MIMH!F(5)  and  MIMIHF2(5). 

(8)  Once  staging  has  started;  i.e.,  once  STGTST(3)  or  STGTST2(3) 
has  rejected  a  trial  step,  MIMINP(5)  and  MIMINF2(5)  will  be 
passive.  This  means  that  MIMINF(5)  and  MIMIHF2(5)  accept  every 
trial  step  and  compute  no  new  HO. 

(9)  MIMINF(5)  and  MIMIHF2(5)  have  sole  control  over  increasing  the 
step  size  HO;  MIMINF(5)  or  MDD  1^2(5'  may  increase  HO  only  if 
they  accept  the  trial  step  and  are  not  passive. 

(10)  The  above  procedure  insures  that  ail  time  points  are  hit,  and 
that  variable  step  integration  does  not  interfere  with  the 
staging  process. 

It  ohould  be  noted  that  EXE  drives  the  second  vehicle  trajectory  through 
EXE2.  This  routine  is  virtually  a  copy  of  EXE.  However,  correct  interfacing 
of  the  two  vehicle  trajectory  integration  procedures  has  required  EXE2  to  be 
Bplit  into  a  sequence  of  entry  points.  Each  entry  point  carries  out  a  well 
defined  function  for  Vehicle  2's  trajectory  control.  Control  of  integration 
stepsize  for  both  trajectories  is  carried  out  by  EXE  itself. 
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A  flow  chart  for  program  EXE  is  presented.  Subroutine  EXE£  fellows  the 
general  computational  flow  of  program  EXE.  However,  the  COMMON  blocks, 
tapes,  and  subroutines  employed  are  differentiated  from  those  of  EXE  by 
the  numeral  2.  For  example,  COMMON/1/  becomes  COMMON/12/;  DIFEQ  becomes 
DIFEQ2;  and  tape  12  becomes  tape  22. 
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DIFEQ-Differential  Equation  Selector 
Purpose: 

To  enable  the  user  to  select  which  set  of  differential  equations  will 
be  used  by  the  program. 

Usage: 

CALL  DIFEQ(IENTKY) 

IENTFff  =  indicator  which  determines  what  task  is  to  be  performed  by 
the  differential  equations  subprogram  which  will  be  called 
by  DIFEQ. 

INDSEL  is  of  the  form  iOj.  J  determines  which  differential  equations 
subprogram  will  be  used.  INDSEL  is  nominally  101,  so  for  this 
INDSEL,  j  *  1  and  DIFEQl  will  be  used. 


Remarks: 

DIFEQ  is  called  by  EXE,  EXT RAN,  and  PTBEQN 

DlfEQ  calls  DIFEQl,  DIFEQ2,  DIFLQ3,  DI.  TQA,  DIFEQL,  DXFEQ6,  and  STOP. 

i  determines  which  control  system  will  be  used.  It  should  be  noted  that  in 
the  combat  simulation,  the  first  vehicle  equations  of  motion  are  contained 
in  DIFEQl, and  the  second  vehicle  equations  of  motion  are  in  DIFEQ2 . 

DIFEQ3,  DIFEQU,  DIFEQ6 

These  are  dummy  routines  included  so  that  the  user  may  write  his  own 
differential  equations  for  use  with  the  optimization  program. 


In  writing  a  new  differential  equation  subprogram,  the  entry  point 
pattern  established  by  EXE  for  such  a  subprogram  must  be  udhered  to. 
DIFEQl  and  DIFEQ5  are  examples  of  such  subprograms. 


Purpose: 


To  prepare  a  target  tape  containing  the  time  history  of  a  "target 
trajectory." 

To  read  the  target  tape  as  a  function  of  time  during  a  forward  trajec¬ 
tory  and  to  compute  functions  of  the  variables  read  from  tape  or  in  COMMON 
together  with  the  variables  of  the  current  trajectory. 

Method: 

This  subprogram  has  all  the  standard  entry  points  of  EXE,  except  that 
entry  point  8  is  unique,  in  that  it  prepares  a  target  tape. 

INDICP  =  0:  No  computations  made. 

INDICP  =  1:  A  target  tape  will  be  prepared;  the  target  tape  is 

TAPE  13.  The  information  put  on  this  tape  is  the 
values  of  the  following  variables: 

TIME,  XE77F,  1E77F,  ZE77F,  UE77P,  VE77F,  WE77F, 

UE77F1,  VE77F1,  WE77F1. 

At  entry  point  1  the  tape  is  rewound  and  INDPAft  is 
set  to  0  (this  deletes  computation  of  partials).  At 
entry  point  8  the  tape  is  written.  None  of  the  other 
entry  points  will  be  effective.  EXE  proper  calls 
MANTGT  (8)  at  every  (lTCONT+i)th  valid  integration 
step.  ITCCNT  is  input.  It  is  assumed  that  only  a 
forward  trajectory  i3  to  be  run  for  a  case  with  INDICP  = 
1  in  the  data.  This  trajectory  shouid  be  set  up  to 
terminate  on  TMAX. 

INDICP  =2:  It  is  assumed  that  a  target  tape  (TAPE  13)  has  been 

prepared  by  a  previous  case  run  with  INDICP  =  1  (or  3) 
in  the  data.  During  each  forward  trajectory  of  the 
present  case,  the  target  tape  will  be  read  sc  that  the 
value  of  trajectory  time  of  the  present  case  is 
bracketed  between  the  trajectory  time  of  two  adjacent 
records  on  the  target  cape.  The  instantaneous  value 
of  the  variables  on  the  target  tape  are  estimated 
by  linear  interpolation.  Then  the  necessary 
functions  are  computed  from  these  interpolated  values 
and  the  information  available  fix*:  the  present  trajec¬ 
tory.  Code  and  value  printing  of  the  computed  quan¬ 
tities  are  accomplished  at  entry  points  5  and  6 
respjctively. 


Remarks: 


It  must  be  known  that  the  values  of  TIME  on  the  target  tape  exceed  the 
largest  value  of  TIME  that  will  be  encountered  on  all  trajectories  of  a 
case  with  INDICP  ■  2. 

TIME  should  be  a  state  variable  when  INDICP  *  2. 

INDICP  -  3: 

This  option  is  designed  for  the  purpose  of  running  a  standard  case,  with¬ 
out  maneuvering  target,  for  INDCYC  cycles  and  then  defining  the  last 
cycle  as  a  target  trajectory  to  be  put  on  the  target  tape  exactly  as  if 
INDICP  were  input  as  1.  On  the  last  cycle,  at  MANTGT  (1),  TMAX  is  set 
to  TOKAX  and  NCTCLE  is  set  to  0  and  INDICP  is  set  to  1  so  that  the  caso 
will  terminate  just  as  if  one  trajectory  with  INDICP  ”  1  were  run; 
however,  this  will  not  be  done  until  INDPAR  has  been  set  on  the  last 
cycle. 

The  following  basic  functions  are  computed  at  MANTGT  (3):  (see  formu¬ 
lation  manual  for  detail) 

XAMTF  AXg\ 


YAETF 

Coordinate  differences  of  the 

two  vehicles 

ZAMTF 

Aze| 

1  ^ 

1AMTF1 

YAMTF1 

T 

Velocity  differences  of  the  two 
vehicles 

ZAKTF1 

VAMTP 

lTi 

RAMTF 

1  “1 

HAMTF1  (- 

■  VCRAP) 

— 

V  jlTj  Rate  °'?  c*1*®*®  °Y  |  R  j 

Aspect  angle 

THA3D 

^ASP 

PHUiD 

*LA 

Lead  angle 

SHEDD 

Heading  of  lead  angle  vector 

SLOSD 

*10? 

Heading  of  line-of-sight  vector 

SGSRD 

AorLOS 

Heading  error  from  line-of-sight  p*th 

QGEED 

Aylos 

Inclination  error  from  line-of-eight  path 
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SMEKD 

Heading  error  from  lead  angle  path 

GMERD 

Mu 

Inclination  error  from  lead  angle  path 

TC 

Time  to  kill 

In  addition,  the  following  missile  calculations  are  made: 

HMINF 

^min 

Minimum  missile  range 

RC77F 

*c 

Range  to  kill  zone 

ESE7D 

CSE 

Allowable  steering  error 

The  input  data  for  MANTGT  calculations  may  consist  of: 

Nominally 

INDICP 

0 

Option  indicator 

ITCONT 

0 

Skip  indicator 

AC 

0 

Arrays  of  missile  rangs  constants 

BC 

0 

C1C 

0  | 

C2C 

0 

Allowable  steering 
error  constants 

C3C 

0 

D1C 

0  ] 

Missile  minimum  range  constants 

D2C 

0  1 

D3C 

0 

HMAXF 

*VtAX 

0 

Missile  maximum  range  constants 

DLVMF 

*vm 

0 

Missile  AV 

GTAB01 

f(iMl) 

Two  dimensional  table  for  multiplier  in 

Ra 

steering  error  calculation. 

A  flow  chart  for  MANTGT  is  presented.  MANTGT2  is  identical  except 
for  use  of  vehicle  2  COMMON  blocks,  tapes,  and  auxiliary  subroutines. 
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3.  CTVS  and  CTVS2  -  Control  Variable  Routine  for  EXE 


Purpose: 

During  the  forward  trajectory,  to  obtain  the  Instantaneous  values  of 
the  control  variables  as  a  function  of  stage  time;  to  obtain  values  of 
the  initial  conditions  at  the  start  of  stage  1;  to  define  points  in 
stage  time  which  must  be  hit  in  the  corresponding  stage  of  the  reverse 
trajectory. 

Control  Variables 

CTASLE  is  an  array  of  rJ  POINT  stage  time  values  and  the  corresponding 
ve_ues  of  the  MCONT  control  variables.  The  format  uf  the  CTABLE  array 
is: 

|  ta  |  "1  | _ a2  |  |  ^HCONT  | 


N POINT  N POINT  NPOINT  NPOINT 


At  CTVS (3),  the  task  of  this  routine  is  to  interpolate  in  the  CTABLE 
to  obtain  the  current  values  of  the  control  variables.  This  is  accom¬ 
plished  trivially  by  calling  the  interpolation  routine  TLU1.  CTVS (3) 
does  not  allow  values  of  the  control  variables  that  exceed  the  upper 
or  lower  boundaries  (CTABUB,  CTABLB)  which  may  be  input  for  the  respective 
control  variables. 

CTABLE  will  be  considered  to  contain  stage  time  values  unless  INDCTA  is 
0.  When  a  new  CTABLE  is  prepared  (in  DALCAL)  INDCTA  is  set  to  1;  hence 
on  all  trajectories  after  the  nominal,  CTABLE  will  contain  stage  time 
values.  For  the  nominal  trajectory  CTABLE  may  be  defined  as  a  function 
of  trajectory  time  if  INDCTA  is  input  0  in  stage  1  data.  If  the  range 
of  the  CTABLE  for  a  stage  ie  exceeded,  the  pertinent  sna  points  will  be 
used  as  the  values  of  the  control  variables. 

Tape  Usage 

In  order  that  the  CTABLE  for  a  particular  stage  be  available  for  CTVS(3), 
it  must  be  read  from  tape  before  CTVS(3)  is  first  called.  This  is  the 
task  of  CTVS(2).  For  the  nominal  trajectory,  the  CTABLE  exists  in  the 
data;  hence  after  the  stage  data  has  been  read  the  CTABLE  for  that  stage 
may  be  assumed  to  be  available  for  CTVS(3).  On  all  trajectories  after 
the  nominal,  the  CTABLE  for  each  major  stage  resides  on  tape  IATAP. 
Furthermore,  the  stages  exist  in  inverse  order  on  IATAP;  hence  to  get 
the  proper  stage  from  IATAP,  CTVS(2)  does  a  BACKSPACE,  HEAD,  BACKSPACE 
at  the  beginning  of  each  major  stage.  It  is  assumed  that  IATAP  has  not 
been  rewound  since  it  was  last  written  (in  DALCAL).  The  information  on 
IATAP  io  not  for  the  exclusive  use  of  CTVS;  in  fact,  each  logical  record 
on  IATAP  contains  much  more  information  than  just  the  CTABLE  for  that  stage. 
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The  complete  format,  of  each  logical  record  of  IATAP  le  described  In  the 
write-up  of  the  routine  (DALCAL)  which  prepares  IATAP. 

Initial  Conditions 

The  values  of  the  INDIOP  initial  conditions  (which  are  not  specified 
categorically  in  the  stage  1  data)  may  be  perturbed  from  trajectory 
to  trajectory  in  a  manner  analagous  to  the  way  the  control  variable 
values  in  the  CTABLE  are  perturbed.  VALINS  is  the  ar-ay  of  these 
initial  conditions.  VALINS  is  read  from  IATAP  at  the  same  time  the 
CTABLE  for  stage  1  is  read.  Hence,  at  CTVS(2),  after  IATAP  has  been 
read  for  stage  1,  the  values  in  the  VALINS  array  are  given  to  the  res¬ 
pective  initial  conditions.  On  the  other  hand,  for  the  nominal,  the 
VALINS  array  is  initialised  with  the  nominal  values  of  the  initial 
conditions  specified  in  the  stage  1  data.  Just  as  with  the  control 
variables,  the  values  of  the  initial  conditions  are  not  allowed  to 
violate  their  respective  upper  or  lower  boundaries  (VALIUB,  VALILB). 

Time  Points 


When  partials  are  being  computed  (INDPAR  0),  CTVS(3)  makes  a  call 
to  TIHHEV  in  order  to  attempt  to  insert  the  current  stage  time  value 
into  the  array  of  points  which  must  be  hit  in  the  corresponding  stage 
of  the  reverse  trajectory. 

However,  the  tolerance  DELTSA  is  used  in  the  call  to  TDCREV.  This 
means  the  points  stipulated  by  CTVS(3)  may  be  no  closer  than  DELTSA 
from  any  other  point  which  has  already  been  stipulated  as  one  which  the 
reverse  trajectory  must  hit .  The  motivation  for  this  feature  is  to 
enhance  the  perforwuics  of  the  variable  step  integration  option  by 
preserving  the  CT.'HLE  at  every  point  used  to  generate  a  trajectory 
(using  DELTSA  “  0).  DELTSA  may  be  input.  It  is  nominally  1000. 

CTV3  has  the  standard  entry  points.  Entry  points  2  and  3  have  been 
described  in  detail  above.  Code  and  value  printing  of  the  control 
variables  is  done  at  entry  points  5  and  6  respectively. 

Remarks: 

CTVS2  obtains  instantaneous  values  for  the  second  vehicle  control 
variables  as  a  function  of  stage  time,  obtains  initial  second 
vehicle  conditions  at  the  start  of  stage  1,  and  defines  points 
in  time  which  must  be  put  in  the  corresponding  points  in  time 
of  the  reverse  trajectory.  CTVS2  is  identical  to  CTVS  except  for 
the  use  of  Vehicle  2*8  COMMON  blocks,  auxiliary  routines,  and 
tapes.  A  flow  chart  of  CTVS  is  presented. 


91 


Purpose: 


To  calculate  the  instantaneous  boundary  violations  of  given  functions 
and  to  integrate  each  of  these  violations. 

IFCS  is  a  subprogram  of  EXE;  it  has  all  the  standard  entry  points.  Up 
to  six  functions  may  be  specified  for  IFCS;  this  is  done  in  the  data. 
If  no  functions  are  specified  then  IFCS  is  not  active. 

Method: 

The  instantaneous  violation  of  the  ith  IFCS  function  is  computed  at 
entry  point  3  as 

AIpcs  =  |  max  [o,  (y±  -  P±  (?±))J  if  INDBR^  >  0 


=  |  min  (Pi  (Sj)  "  yi^j  |lINDBNDil  ^  iNDENDi  <0 

where  y^  is  the  value  of  the  i'th  variable  listed  in  the  BFCDV  array 

is  the  value  of  the  i'th  variable  listed  in  the  BFCDV  array 

P,  is  the  function  tabulated  as  a  two  dimensional  table  on  the 
1  i'th  PSTAR  data  card  (s). 


INDBND^  is  an  indicator  which  is  input  >  0  to  define  an  upper 
boundary;  and  which  i3  input  <  0  to  define  a  lower  boundary. 


At  entry  point  7,  the  violation  is  integrated. 

The  names  ascribed  to  the  respective  violations  and  their  integrals  are, 
in  order: 


AIFCSl  AIFCS 
BIFCS1  BIFCS 
CIFCS1  CIFCS 
DIFCS1  DIFCS 
EIFCS1  EIFCS 
FIFCS1  FIFCS 


The  first  IFCS  function  for  which  no  computation  is  requested  terminates 
th9  list  of  those  IFCS  functions  for  which  computations  will  be  made. 
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Remarks: 


IFCS2  calculates  instantaneous  boundary  violations  of  given  functions 
and  their  integrals  for  vehicle  2.  A  program  modification  is  required 
to  permit  specification  of  second  vehicle  in-flight  constraints  in 
cooperative  variational  optimization.  IFCS2  is  identical  to  IFCS 
except  for  the  use  of  the  second  vehicle's  COMMON  blocks  and  auxiliary 
routines.  A  flov  chart  for  IFCS  is  presented. 


5.  PARTS-Partial  Derivatives 


Purpose: 

To  obtain  all  necessary  partial  derivatives  and  put  then  on  the  partial 
tape  (TAPE12) ;  also,  to  transmit  information  from  the  forward  trajectory 
to  the  reverse  trajectory  by  putting  it  on  the  partial  tape. 

Methods : 


This  subprogram  has  the  standard  entry  points  of  all  the  other  sub¬ 
programs  of  EXE.  The  calculation  of  a  particular  matrix  of  partials 
is  accomplished  by  a  call  to  PSUBR;  the  particular  matrix  desired  is 
completely  specified  in  the  arguments  to  PSUBR. 

The  partials  to  be  computed  are: 


KMATX 

-  R  = 

L*jJ 

iMATX 

=  P  = 

'axi+1 

[SxrJ 

V 

FMATX 

5=1  F  = 

Eta 

GMATX 

-  G  ** 

r  a%.l 

|_da^J 

PARTPH 

1  ad>  | 

r -v  »  n 

PARTIS 

= 

y 

PARTOM 

! 

1 

1 

PHI771 

-  <i> 

OMEGA 1 

0 

-  n 

PSI771 

=ki 

initial  conditions  | 

f  PARTS  (2) 

(  beginning  of  a  stage 

h-transformation  1 


PARTS  (3) 
during  a  stage 


terminal  partials 


PARTS  (3)  at  the 
>  end  of  every  major 
[  stage 


) 
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<|>,  Cl,  and  j'i'  ^  j  are  computed  by  the  chain  rule: 

*■  [n]  n + 

this  ie  valid  since  ^“^(x,  t8)  +  C 

It  may  be  necessary  to  modify  the  terminal  partials  at  the  end  of  a 
stage.  If  the  contribution  to  the  payoff  at  the  end  of  a  given  stage 


is  0f  then 


and  4> are  set  to  0.  Likewise  if  the  contribution  to 


the  ith  constraint  at  the  end  of  stage  i  is  0,  then  and  4^  are 

set  to  0. 

These  conditions  are  determined  by  the  values  of  JPHCUT  and  JPSCU'r 
respectively.  For  the  payoff,  the  contribution  is  0,  if  JPHCUT  f.  0. 
For  the  kth  constraint  the  contribution  is  0,  if  JPSCITIV  <  0.  the 
analyst  has  control  of  JPHCUT  and  JPSCUT^  in  the  input  data. 

At  PARTS  (3)  a  call  to  TIKKE7  is  made  (with  0  tolerance)  to  define  the 
current  stage  time  aa  a  point  which  must  be  hit  in  the  corresponding 
stage  of  the  reverse  trajectory. 

At  PARTS  (2),  the  R  matrix  is  calculated  at  the  first  stage  only  (and 
then  only  if  it  is  needed).  At  the  beginning  of  any  stage  after  the 
first,  the  P  matrix  is  calculated  but  only  if  it  is  actually  needed. 

The  R  matrix  and  the  P  matrix  are  put  on  the  partial  tape  directly 
within  PARTS.  The  F  matrix,  the  G  matrix,  all  terminal  partials  and 
other  information  for  reverse  is  put  on  the  partial  tape  via  the  ad-hoc 
blocking  routine  PHPACK. 

At  PARTS  (A),  the  R  matrix  or  the  P  matrix  is  printed  (if  it  has  been 
computed) . 

At  PARTS  (5),  code  printing  is  done  for  the  F  and  G  matrices. 

At  PARTS  (6),  the  values  of  the  F  and  G  matrices  are  printed;  at  the 
termination  of  a  stage  the  terminal  partials  are  printed  also. 

The  information  (besides  the  partials)  which  is  transmitted  to  reverse 
is: 


TIMES 


ALFHC 


Stage  time 

Indicator  determining  beginning  and  type  of  a  major  stage. 
Current  values  of  control  variables. 


DELTC.R 


Integration  step  size  for  reverse. 
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TNDWKA  Weighting  matrix  option  for  reverse. 

WAI  Weighting  matrix  parameters. 

WBI  Weighting  matrix  parameters. 

This  ^formation  is  put  on  the  partial  tape  every  time  an  F  and  a  G 

matrix  are  put  on  the  tape. 

Saving  a  -  Points 

There  are  several  ways  of  preserving  the  a  history  which  generates  a 
given  trajectory,  (there  will  be  no  reason  to  preserve  the  a  history 
on  a  trial  trajectory).  The  success  of  the  program  will  depend  to 
some  extent  on  the  accuracy  in  preserving  the  a -history  of  a  given  cycle. 

The  (TIMES)  history  exists  in  tabular  form  (CTABLE)  as  a  function  of 
stage  time  for  each  major  stage.  During  the  numerical  integration  of 
the  forward  trajectory  the  CTABLE  is  sampled  (by  some  given  inter¬ 
polation  formula)  at  the  various  points  in  stage  time  dictated  by  the 
particular  numerical  integration  method.  It  is  only  this  sampled 
version  of  the  a -history  which  determines  the  trajectory.  Hence  to 
preserve  the  ar-history  which  generated  the  trajectory  it  is  only  nec¬ 
essary  to  preserve  the  corresponding  sample  of  the  CTABLE  that  was  used. 

There  are  basically  three  options  available  for  preserving  the  a -history. 

Option  I; 

The  a -history  is  preserved  at  those  points  in  the  forward 
trajectory  where  partiala  are  computed,  and  only  at  those  points. 

Option  II; 

The  a -history  is  preserved  at  those  points  in  the  forward  trajec¬ 
tory  where  partials  are  computed  (a a  in  Option  I),  and  in  addition 
a  subset  of  the  sample  points  used  to  effect  the  numerical  inte¬ 
gration;  the  subset  is  determined  as  follows: 

An  a  point  is  preserved  if  it  is  no  closer  than  a  distance 
of  DELTSA  away  from  the  previous  a  point  which  was  pre¬ 
served.  (distance  means  distance  in  stage  time).  The  a 
time  points  are  preserved  in  strictly  monotonically  in¬ 
creasing  order;  if  for  any  reason  the  integration  is  backed 
up,  all  ot -time  points  that  might  have  been  accumulated  in 
the  back-up  interval  are  annihilated. 


Option  III: 

Use  Option  I  on  the  nominal  (i.e.  first  cycle  of  a  run)  and  Option  II 
on  all  others. 
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Every  a  -time  point  which  is  preserved  in  the  forward  trajectory  will 
be  hit  in  the  reverse  trajectory  and  a  corresponding  8  a  will  be 
produced  at  this  point. 

Observations  and  Remarks 

(1)  option  I  accomplishes  precisely  what  the  program  has  always  done. 

(2)  Option  1  is  a  special  case  of  Option  II  (with  DELTSA  ■  ).  In 

fact  this  is  the  way  Option  I  is  selected. 

(3)  Option  II  still  can  fail  to  preserve  all  the  a  -history  that  was 
used  to  generate  a  trajectory  even  when  DELTSA  "  0.  This  may  happen 
because  the  integration  step  size  control  logic  has  a  part  in  deter¬ 
mining  the  trajectory;  if  we  cannot  reproduce  the  exact  step  size 
control  logic  on  the  next  cycle  with  a  5  a  history  identically  0, 
then  we  cannot  reproduce  the  same  trajectory.  Mow  a  trial  inte¬ 
gration  step  which  was  rejected  on  the  nominal  does  not  have  an 

a  -tine  point  associated  with  it.  Hence  this  a  point  was  not 
preserved;  hence  the  next  cycle  might  not  obtain  the  same  a  value 
for  this  point  and  hence  the  trial  integration  step  which  was  re¬ 
jected  on  the  nominal  may  ta  accepted  on  the  next  cycle. 

(4)  A  remedy  to  the  problem  in  (3)  would  be  to  have  an  Option  that 
would  preserve  every  a  -time  point  even  if  it  were  associated  with 
an  Integration  step  that  was  rejected.  However,  it  is  questionable 
whether  the  problem  is  of  that  much  import snce. 

(5)  When  utilizing  vehicle  2  functions  in  a  cooperative  variational 
optimization  problem,  care  must  be  taken  to  insure  that 

(a)  The  second  vehicle  function  has  a  unique  name  assigned 
in  the  vehicle  1  directory. 

(b)  Appropriate  transformations  are  available  in  0NETW0  and 
TWOONE. 
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6.  UNCOM  aod  LINCQM2  -  Linear  Combination  Routines 

Purpose: 


To  compute  new  functions  as  linear  combinations  of  existing  functions, 
n 

i.e.  ?  =  Z  ^  gi 

i=i 

where  the  are  existing  functions,  the  c^  are  fixed  coefficients,  and 
is  the  new  function. 

Method : 

The  c^  and  the  for  a  particular  5*  arc  specified  in  the  data  —  the 
c^  are  input  directly;  the  ^  are  input  as  BCD  names,  and  hence  the 
names  for  the  5^  must  be  in  the  directory. 

Up  to  five  different  linear  combination  functions,  **,  may  be  defined 
this  way.  For  each  5*,  n  must  be  £  3*  If  a  linear  combination  is 
desired  with  more  than  three  component  functions  then  it  must  be 
defined  as  a  linear  combination  of  already  computed  linear  combinations 
(as  will  be  illustrated  in  the  eranples  below). 

The  names  of  the  five  available  linear  combination  functions  are  ALINK, 
BLINK,  CLINK,  DLINK,  and  '.LINK.  The  names  of  the  cost  vector  for  the 
above  linear  combination  functions  are,  respectively,  ACOST,  BCOST, 
CCOST,  DCOST,  ECOST.  ALINK  through  ELINK  are  computed  in  alphabetical 
order. 

Example  1: 

To  define  a  linear  combination  5*  =  (l)h  +  (2)V  ,  the  following 
input  data  is  sufficient:  8 

3LINC  BCD  2HG^7FbVJ77F 

BCOST  1.,  2. 

To  define  a  linear  combination  +  (5.2)M$j  +  (6.5)h  +  (2.0)AIFCS  + 
(10. )v  the  following  input  data  in  sufficient: 

o 

ALINC  BCD  3AMACHbHGC7FbAIFCS 
ACOST  5.2,  6.5,  2.0 
BLINC  BCD  2ALINKbVG77i 
BCOST  1.,  IT. 
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Example  3: 

To  define  a  linear  combination  5*  =  (l/2)mb  +  (l/2)ra^  +  where 
m1  denotes  the  mass  in  the  first  stage,  m 2  denotes  the  mass  in  the 
second  stage  and  h^  the  altitude  in  the  second  stage,  the  follow¬ 
ing  data  is  sufficient: 

ALINC  BCD  1AMASS 

Stage  1 

ACOST  .5 

'ALINC  BCD  lb 

Stage  2  BUNC  BCD  3AIINKbAMASSbHGC7F‘ 

.BOOST  l.,.5,l. 

Hence,  at  the  end  of  the  last  stage,  BLINC  will  be  the  average  of  the 
mass  at  the  termination  of  the  first,  stage  and  the  last  stage  plus  the 
altitude  at  the  end  of  the  last  stage.  Note  that  when  a  linear  com¬ 
bination  function  is  "blanked  out"  in  the  data,  the  value  of  that 
function  remains  constant. 

This  subprogram  has  all  the  standard  entry  points.  However,  entry  points 
A,  5,  6,  and  7  are  vacuous.  That  is,  no  printing  of  the  values  of  the 
linear  combinations  is  done;  also,  nothing  is  integrated. 

It  is  well  to  note  that  it  is  possible  to  take  linear  combinations  in¬ 
volving  in-flight  constraints  and  also  to  take  in-flight  constraints  of 
linear  combinations.  The  reason  is  that  LINC0M(3)  is  called  before 
IFCS(3)  from  EXE. 

Remarks: 

LINC0M2  computes  linear  combination  functions  for  the  second  vehicle. 
The  use  of  second  vehicle  linear  combination  functions  in  cooperative 
variational  optimization  problems  will  require  a  program  modifi¬ 
cation.  LINC0M2  is  identical  to  LINCOM  except  for  the  use  of  the 
second  vehicle's  COMNK)N  blocks  and  auxiliary  subroutines.  A  flow 
chart  for  LINCOM  is  presented. 
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7.  SLACK  and  SLACKS  -  slack  Variable  Routines 

Purpose: 

To  make  available  "slack"  variables  that  may  be  used  for  various 
effects  including  optimal  staging  and  optimizing  or  constraining  the 
initial  value  of  a  variable. 

Method: 

The  four  slack  variables,  FLUXA,  FLUXB,  FLUXC,  FLUXD,  and  their  re¬ 
spective  derivatives,  FLUXA1,  FLUXB1,  7LUXC1,  and  FLUXDl,  are  available. 
SLACK  has  all  the  standard  entry  points,  however,  some  of  the  entry 
points  are  vacuous. 

The  first  |lNDFLX|  slack  variables  are  integrated;  INDFLX  is  input. 

If  INDFLX  is  0,  no  slack  variables  are  integrated.  FLUXEQ  is  an  array 
of  BCD  names;  the  BCD  name  in  FLUXEQi  equates  the  ith  slack  variable 
with  the  initial  value  of  that  variable,  (i.e.,  the  value  at  the 
beginning  of  stage  l). 

Code  and  value  printing  of  the  first  INDFLX  slack  variables  and  their 
derivatives  is  done  if  and  only  if  INDFLX >0. 

All  variables  are  nominally  0;  FLUXEQ  is  nominally  blank. 

Remarks : 

SLACK2  defines  slack  variables  for  the  second  vehiclp.  Before  use 
of  the  second  vehicle's  slack  variables  in  a  cooperative  variational 
optimization  problem,  a  program  modification  equating  the  second 
vehicle' 8  slack  variables  to  names  in  the  first  vehicle's  directory 
is  required.  SLACK2  is  identical  to  SLACK  except  for  the  use  of 
the  second  vehicle's  COMMON  blocks  and  auxiliary  subroutines.  A 
flow  chart  for  SLACK  is  presented. 
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8.  PENAL  and  PENAL2  -  .Penalty  Function  Routine 


Purpose: 

To  compute  a  penalty  function  using  the  values  of  the  variables,  Yi,  whose 
names  are  listed  in  the  ENDCON  array  and/or  values  Y.*  that  have  been 
accumulated  at  previous  stage  points  for  these  variables  in  the  PSSTAR 
table. 

Method: 

PENAL  is  a  standard  subprogram  of  EXE.  PENAL  will  be  effective  if  and 
only  if  MAXIM  or  MINIM  contains  the  name  "FNALTY".  BJALTY  is  the  name  of 
the  function  that  will  be  computed  at  entry  point  3’ 

IIIPfT 

w  =  Wx  Vx  +  E  W.  (Y.  -  Y.)2 


where  W.  are  weights  (WGTSl)  and 
A  1  _  _ 

Yi  '  Ti  =  ’i  -  if  JPSCUTi  =  1 

=  Yj*  -  if  JPSCU^  <  0 

=  0  if  JPSCUT.  =  0 

l 

The  -  sign  is  used  if  the  name  !,fttALTT"  is  in  MAXIM.  The  +  sign  is  used 
if  the  name  "PNALTY"  is  in  MINIM. 

The  weights  W  may  be  input  or  may  be  controlled  by  some  logic  in  the 
control  system.  JPSCUT^  is  the  array  of  indicators  that  indicate  the 
stage  point  to  which  the  corresponding  Y4  function  applies.  Y,  is  an 
element  of  the  PSSTAR  table  and  is  the  value  of  Y^  at  the  most  recent 
stage  point  for  which  JPSCini  =1. 

Code  and  value  printing  are  done  at  entry  points  5  and  6  respectively. 
The  value  of  HIALTY  will  be  printed. 

Remarks : 

1.  VCTSI  and  DSINL  are  two  names  for  the  same  array. 

2.  Note  that  the  number  of  functions  is  taken  to  be  HIRCT.  (This  is 
set  in  MAIN1. ). 

3.  The  penalty  function  must  be  confuted  when  using  control  system 
CTLS2.  Thus,  when  using  CTLS2,  MAXIM  or  MINIM  must  contain  the 
name  "REALTY",  the  variable  being  maximized  or  minimized  must 
appear  as  the  first  name  of  the  ENDCON  array  and  the  remaining 
names  of  the  ENDCON  array  must  be  those  variables  that  are  being 
constrained . 
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4.  PENAL2  creates  a  penalty  function  from  the  second  vehicle 
variables,  tpj .  Use  of  the  second  vehicle's  penalty 
function  in  cooperative  variational  optimization  will 
require  a  program  modification.  PENAL2  is  identical  to 
PENAL  except  for  the  use  of  the  second  vehicle's  COMMON 
blocks  and  auxiliary  subroutines.  A  flow  chart  for  PENAL 
is  presented. 
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9.  PLTS  and  PLTS2  -  Data-Gathering  Routine 
PURPOSE: 

To  record  the  time  histories  of  a  set  of  prescribed  variables  on  a 
tape  to  be  used  later  (GRAFH  segment)  for  plotting. 

Method : 

The  following  assumptions  are  made 

1.  The  variable  whose  time  histories  are  to  be  saved  are  input 
(PLOTS  card(s)). 

2.  The  time  histories  are  to  be  saved  for  each  pass  up  tc  the  sixth 
without  requiring  the  tape. 

3.  The  F  and  G  matrix  time  histories  are  to  be  saved  on  the  last 
forward  trajectory  of  a  cycle  on  a  different  tape  than  the  other 
variables . 

4-  Saving  of  the  F  and/or  G  should  be  done  as  an  option  based  on  the 
value  of  the  indicator  INDFAG. 

Tape  17  is  used  for  the  regular  variables. 

Tape  ILTAP  is  used  for  the  F  and/or  G. 

&itry  Point  1:  Number  of  points  for  a  trajectory  is  zeroed. 

Entry  Point  2:  Tape  17  is  written.  NPASS,  INDSTG  and  the  point  number 
for  the  pass,  MPT  (NPASS),  are  put  on  tape  17  along  with  the  values 
of  the  variables  thAt  have  been  specified. 

Entry  Point  2:  Tape  ILTAP  is  written  only  if  INDFAG  /  0.  NPASS,  INDSTG, 
the  pcint  number  (MPTFAG)  and  TIME  are  put  on  ILTAP.  In  addition  the 
following  is  put  on  ILTAP  depending  on  the  value  of  INDFAG: 

INDFAG  -  1  FMATX 
=  2  GMATX 
=  3  FMATX  and  GMATX 

Entry  point  2  is  called  by  EXE  after  every  (IGC0NT+1)  valid  integration 
steps.  Entry  point  1  is  called  by  EXE  after  the  F  and  G  ire  computed. 
IGCONT  may  be  input. 

Up  to  40  variables  may  be  specified  in  the  PLOTS  array  by  BCD  names. 

Only  distinct  variables  are  written  on  tape.  This  means  that  if  a 
variable  is  specified  twice  in  the  PLOTS  array,  its  value  will  be  put 
on  tape  only  once  per  record. 
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The  LPLT  array  is  set  up  in  MAIN1.  LPLTi  is  either  the  COMMON  subscript 
for  the  name  in  PLOTS^  or  is  a  negative  integer  j  where  J  points  to  the 
cell  in  the  LPLT  array  which  contains  the  COMMON  subscripts  for  the  name 
in  PLOTSi.  PLTS2  performs  the  PLTS  function  for  vehicle  2. 
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10.  0B0FUN  and  0BSFUN2  -  Observation  *~uinctlon  Routine 


Purpose : 

To  provide  an  organized  time  history  output  of  selected  trajectory 
variables,  the  observation  functions. 

Method: 

Input  data  defines  a  set  of  observation  functions  for  each  vehicle. 

Time  histories  of  these  variables  are  organized  and  printed  in  a  compact 
form  at  set  intervals  of  time.  Selected  observation  functions  may 
also  be  plotted  on  tbs  printer  using  the  printer-plotter  routine, 

PAPERP. 

Remarks : 

A  flow  chart  for  CBS FUN  is  presented.  0BSFUN2  is  identical  except  for 
the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  routines. 
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11.  FILTER  and  FILTER 2  -  Repeater  Routines  for  h-Transformation 


Purpose: 

To  detect  if  a  change  has  been  made  in  the  value  of  a  prescribed 
OOMMON  varl 'ble  and  if  a  change  has  been  made  to  produce  either  the 
original  ox  the  altered  value  when  asked  to  do  so. 


Method: 


There  are  three  entry  points  to  FILTER. 

FILTER  (l):  The  current  values  are  saved;  a  filter  is  laid  over 
each  variable. 

FILTER  (2):  Altered  values  of  variables  that  are  tripped  in  the 

filter  are  saved;  the  original  valued  of  the  variables 
are  restored. 

FILTER  (3):  A  variable  for  which  there  is  an  altered  value  is  set 
equal  tc  the  altered  value. 

If  FILTER(l)  is  ever  called,  FILTER  (2)  must  be  called  before  the  values 
being  filtered  are  ever  used.  FILTER(3)  may  be  called  any  number  of 
times  after  FILTER(l)  and  FTLTER(2)  have  been  called.  FILTER(3)  is  the 
entry  point  which  reproduces  the  detected  change.  FILTER(l)  and  FTLTER(2), 
in  conjunction,  detect  the  change. 

The  variables  to  be  filtered  are  prescribed  by  putting  their  CCHMCN 
locations  successively  into  the  cells  of  the  name-contnon  block/FILTER/. 

At  most  14  variables  may  be  filtered. 

Remarks : 

FILTER 2  detects  changes  in  the  value  of  specified  second  vehicle 
COMMON  variables.  FILTER2  is  identical  to  FILTER  except  for  the 
use  of  vehicle  2's  COMMON  blocks.  A  flow  chart  of  FILTER  is 
provided. 
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P  I  L  T  C  R 


and  STGTST2  -  Stage  Testing  Routine 


Purpose; 

(1)  TP  determine  if  the  trajectory  should  be  terminated  (i.e., 

m  ft^)» 

(2)  TP  determine  if  a  stage  should  be  terminated  (i.s.,  ft,-  -  ft  . 

i  -  2,  ...,  4'  1  i 

(3)  To  determine  an  integration  step  sixe  to  use  to  achieve  condition 

(1)  or  (2). 

(4)  TP  communicate  the  information  that  is  gleaned  to  EXE  proper  for 
the  appropriate  action. 

This  subprogram  has  the  standard  entry  points.  Code  and  value  print¬ 
ing  are  used  only  for  diagnostic  purposes  end  are  called  if  and  only  if 
INDCOT  ie  input  /  0. 

Up  to  four  variables  may  ba  prescribed  for  terminating  the  trajectory 
or  the  stage  by  the  BCD  names  In  the  array  CUTOFF.  The  respective 
values  of  these  variables  at  which  termination  ie  desired  appear  in  the 
array  CMBAR. 

Termination  Criteria 

a)  | n±  -n±|  <  lo^nj  +D 

(2)  it  is  noo  the  first  point  of  a  major  stage. 

(3)  if  i  "  1  tl;'  n  TIME  >  TOMAX  -  DTMOD 

If  the  above  three  conditions  are  satisfied  for  the  i'th  variable  listed 
in  the  CUTOFF  array,  then  INDSTG  is  set  equal  to  i  at  STGTST  (3).  This 
informs  EXE  to  terminate  the  stage  if  i  »  2,  3,  or  4  or  to  terminate  the 
trajectory  if  INDSTG  “  1, 


(1)  tp  is  the  value  of  stage  time.  ts,  at  the  last  valid  integration 
step.  H  jP  is  the  value  of  ft ±  on  the  last  valid  integration  step. 
STGTST(3)  updated  ft.p  and  tBp  only  if  it  does  net  reject  the  inte¬ 
gration  step  (or  if  it  ie  the  first  point  of  a  major  stage). 

(2)  STGTST(3)  rejects  an  integration  step  (sets  LOOK  /  0)  only  if  the 
termination  criteria  ie  not  satisfied  and 

'fti-ITi)  (ftP  -Hi)  <  0  for  scare  i  and  TIME  >  TCHAX  -  DTMOD  if  i  -  1. 

(3)  For  each  i  which  dictates  that  the  integration  step  ba  rejected  an 
integration  step  size  ie  coHijxited. 
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(fii  -«iP>  /  <t8  -  t8P) 


This  is  ths  step  jize  which  the  linear  prediction  estimates  should 
be  taken  from  the  last  valid  integration  step  in  order  to  exactly 

satisfy  fit  ■  ?T i. 

(4)  The  minimum  of  all  the  h^ ' i  is  determined;  call  it  h*.  The  step 
size  HO,  to  nse  on  the  next  integration  step  is  set  equal  to  h* 
sign  (HO).  LOOK  has  been  set  nonzero;  this  informs  EXE  that  the 
integration  is  to  be  backed  up  to  the  last  valid  step. 

(5)  INGHOM  is  set  to  1  whenever  STGTST(3)  rejects  an  integration  step. 
Within  a  given  stage,  STGTST(3)  may  reject  an  integration  step  on 
account  of  the  behavior  of  O 4  at  most  20  times.  If  this  limit 

is  reached  the  staging  criteria  is  assumed  to  be  satisfied  (even  if 
it  is  not  in  fact)  for  the  variable  in  question. 

(6)  Within  a  given  stage,  each  time  STGTST(3)  accepts  r.n  integration 
step  after  INGHCM  has  once  been  set  to  1,  INGHOM  is  incremented  by 
1.  The  iter  ition  is  terminated  if  INGHOM  ever  reaches  100;  if 
this  happens,  INDSTE  is  set  to  0  to  indicate  an  error  in  the 
trajectory. 

Remarks 

(1)  Specifying  TCHAX  and  DTMOD  permit  dealing  with  a  multiple  valued 
cutoff  function;  cutoff  cannot  be  achieved  until  TIME  >  TCMAX  - 
DTMOD.  TOKAX  and  DTMOD  may  be  input;  TOMAX  is  set  to  the  termina¬ 
tion  time  of  the  trajectoiy  of  the  previous  cycle  in  OILS.  Care 
should  be  exercised  when  specifying  TOMAX  and  DTMOD. 

(2)  BCDSTG  is  equivalaoced  to  the  second  location  of  the  CUTOFF  array 
(in  the  directory).  Likewise  STEST  is  equivalenced  to  the  second 
location  of  the  CMBAR  array.  (Each  of  these  may  be  input  :'n  stage 
data  to  define  the  staging  variables  and  their  desired  staging 
values). 

(3)  Before  stage  data  is  read  for  a  given  stage,  EXE  proper  blanks  out 
CUT0FP(2),  CUT0FF(3),  CUTOFF(A),  (i.e.  the  BCDSTG  array). 

(4)  There  is  no  restriction  on  the  number  of  stages. 

(5)  No  provision  is  made  for  specifying  "increasing"  or  "decreasing" 
as  an  additional  requirement  of  the  termination  criteria,  but  such 
a  modification  should  not  be  difficult. 

(6)  STGTST2  extends  the  stage  testing  function  to  the  second  vehicle. 
STGTST2  is  identical  to  STGTST  except  for  the  use  of  the  second 
vehicle's  COMMON  blocks  and  auxiliary  routines.  Kak  directly 
controls  STGTST2 .  A  flow  chart  for  STGTST  is  presented. 
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•where  x”  denotes  values  of  state  variables  at  end  of  last  stage, 

x+  denotes  values  of  state  variables  at  beginning  of  current 
stage. 

denotes  values  of  auxiliary  variables  (i.e.  functions  of 
the  state  variables)  at  end  of  last  stage. 

denotes  values  of  auxiliary  variables  at  beginning  of 
current  stage. 
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Usage: 


At  the  beginning  cf  the  trajectory  EXE  proper  sets  INDHTR  co  1  in  order 
to  accomplish  the  initial  transformation. 

EXTRAM  (l)  is  called  by  EXE  at  the  beginning  of  every  stage  after  the 
first,  before  the  stage  data  for  that  stage  is  read.  EXTRAN(2)  is 
called  after  the  stage  data  is  read.  And,  of  course,  EXTRAN(3)  is 
called  do  the  initial  or  h-tranaf ormat ion  in  order  to  initialise 
the  values  of  the  variables  that  are  to  be  integrated. 

Remarks: 

The  reason  for  having -several  basic  options  for  the  ^transformation  is 
in  order  to  achieve  flexibility.  It  is  assumed  that  DIFEQ(2)  is  the 
inverse  cf  the  DIFEQ(3)  transformation  (and  vice-versa)  with  respect 
to  the  values  of  the  state  variables  and  the  auxiliary  variables. 
DIFEQ(d)  is  either  a  transformation  from  the  state  variables  to  the 
state  variables  directly  (INDHTR  “  4)  or  from  the  auxiliary  variables 
to  the  auxiliary  variables  (INDHTR  =  3).  FILTER  (3)  is  the  transforma¬ 
tion  equivalent  to  the  reading  of  data  for  those  variables  that  are  set 
up  to  be  filtered.  This  permits  some  simple  types  of  h-transformationa 
(INDHTR  2)  to  be  accomplished  within  the  data  without  the  need  for 
introducing  new  code  at  DIFEQ(8),  and  also  permits  the  other  types  of 
h-transformation8  to  be  modified  to  a  limited  extent  right  within  the 
data. 

On  a  trajectory  for  which  partials  are  being  computed  EXT RAN (3)  will 
be  entered  in  the  process  of  computing  the  P  matrix  and/or  the  R  matrix. 
This  action  is  initiated  by  PARTS.  Negative  values  of  INDHTR  are  to 
indicate  that  the  P-matrix  for  that  particular  h-trar  formation  is  the 
identity  and  hence  need  not  be  computed, 

The  indicator  INDHTR  plays  an  important  role  in  EXE  proper  too.  ND  is 
an  indicator  which  is  nonaally  2  to  denote  t6e  beginning  of  a  major 
stage  after  stage  1.  If  a  P  matrix  ie  computed  at  a  stage  point  (i.e. 
INDHTR  >  0)  then  ND  is  set  to  3  to  inform  REF  to  expect  a  P  matrix  on 
the  partial  tape. 

EXTRAN2  performs  the  identical  and  h-transformaticn  for  Vehicle  2. 

It  is  called  by  EXE2  and  is  identical  to  EXTRAS  other  than  for  use 
of  Vehicle  2  COMMON  blocks  and  auxiliary  subroutines.  A  flow 
chart  for  EXTRAN  is  provided. 
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ll* .  INTGRT  .  INTGRT2 ,  and  INTGRTR  -  Interface  for  Integration  Routine 

Purpose: 

To  serve  as  an  interface  between  the  integration  routine  proper 
(M3MINF  or  MBCCNR)  and  any  routine  requesting  a  variable  to  be  inte¬ 
grated;  also  to  backup  the  integration. 

There  are  five  logical  functions  which  this  routine  perfo.Tus  depending 
on  the  status  of  the  indicator  INTCAL.  For  a  particular  call  to  INTGIfT 
one  of  these  functions  will  be  enacted.  Ths  P  array  is  the  array  of 
current  derivative  values  of  the  variables  that  are  being  integrate' 

The  Y  array  is  the  array  of  the  current  integrated  variable  values. 

Usage: 

To  integrate  XDOT  and  have  the  resulting  integrated  value  stored  in  X 
use  the  statement 


CALI.  INTGRT  (INTNUM,  XDOT,  X) 


INTNUM  must  be  a  distinct  call  used  in,  and  only  in,  the  calls  for  the 
integration  of  XDOT. 

A  call  of  the  above  form  must  be  made  at  throe  different  times  (when 
the  value  of  INTCAL  is  2,  3,  and  4).  However,  all  of  this  may  be  accom¬ 
plished  with  only  one  statement  if  the  statement  is  inserted  at  the  entry 
point  7  of  the  calling  program. 


INTNUM  is  the  subscript  in  the  P  and  Y  arrays  for  the  values  XDOT  and  X 

respectively. 

Method: 

INTCAL  =  1  the  P  and  Y  arrays  are  set  to  0;  the  number  of 

integrated  variable  is  set  to  0. 

INTCAL  =  2  the  subscript  INTNUM  is  computed  for  the  argu¬ 

ments  XDOT  and  X;  the  number  of  integrated 
variables  is  updated  by  1. 


INTCAL  -  3 
INTCAL  -  4 

INTCAL  -  5 


the  value  of  XDOT  is  put  into  its  proper  place 
in  the  P  array. 

the  value  of  the  integrated  variable  is  picked 
up  from  the  proper  place  in  the  Y  array  and  put 
in  X. 

the  integration  is  backed  up  one  step  by  resetting 
the  Y  array  to  the  previous  Y  array  (YO)  and  by 
resetting  T  to  TO. 
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INTGRT  will  tenninate  the  ease  If  more  variables  are  requested  to  be 
integrated  than  there  is  room  for  in  the  integration  arrays;  at  present, 
this  up p*r  limit  ie  25  variables  in  the  forward  trajectory,  and  300  in 
the  reverse  trajectory. 

EXE  proper  is  the  only  routine  which  calls  INTGRT  when  INTCAX.  ■  1  or 
when  INTCAL  =  5.  EXE  has  sole  control  over  setting  the  indicator  INTCAL. 

INTGRT2  serves  as  an  interface  between  the  integration  routine  MIMINF2 
for  the  second  vehicle  and  any  second  vehicle  subroutine  requesting  a 
variable  to  be  integrated.  It  is  identical  to  INTGRT  except  for  use  of 
Vehicle  2's  COMMON  blocks.  INTGRT2  is  directly  controlled  from  EXE. 

A  flow  chart  for  INTGRT  is  provided. 


INTGRTR  serves  as  an  integration  interface  routine  for  the  reverse  time 
integration  of  the  adjoint  equations  through  MIMINR  and  the  REV  program. 
It  is  identical  to  INTGRT  other  than  for  us?  of  the  UPDCAR  COMMON  block 
and  subroutine  ST0P2. 
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id  C0DES2  -  Code  Print  Routines 


To  print  code  names  of  variables  to  identify  the  values  in  the  output. 


Peace 


CALL  CODES  (L,  A1,...,AL) 


is  an  integer  0  *  L  <  8  identifying  the  number  of  arguments 
following  it. 


L  cells  each  containing  a  Hollerith  code  word  of  at  most 
10  characters. 


The  above  call  adds  the  L  Hollerith  code  words  to  the  list  of  code  words 
to  be  output  on  the  next  line  of  print.  When  8  code  words  have  been  accumulated, 
the  line  is  printed;  any  excess  code  words  are  added  to  the  list  for  the  next 
line  of  print.  If  L  is  0,  then  the  codos  in  the  existing  list  (the  number  may 
be  loss  than  eight)  are  printed  lamed iately. 

Lines  accounting  is  taken  care  of  within  this  routine. 

This  subroutine  is  designed  to  be  need  in  conjunction  with  the  VALUES 
subroutine. 

Codes  are  printed  with  a  "5X,A10"  format. 


COOES  and  VALDES  control  email  secondary  output  buffers  within  the  program 
itself. 

Horaally  a  call  to  CODES  is  wade  before  tny  call  to  VALUES  in  order  to 
identify  the  values.  Tho  CALL  CODES  (0)  is  necessary  to  be  sure  that  the  codes 
are  printed;  the  1ALL  VALDES  (0)  is  necessary  to  be  sure  the  values  are  printed. 
(If  this  is  not  done  the  buffers  may  never  be  flushed.) 


Remarks: 

A  flow  chart  for  CODES  is  presented.  C0DES2  is  identical  to  CODES 
but  is  required  to  insure  correct  output  function  for  the  second  vehicle. 
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l6#  ITEMS  and.  ITEMS2  -  Variable  Print  Routines 


Purpose: 

To  allow  printing  of  variables  in  addition  to  those  printed  by  other 
subprograms  of  EXE  at  entry  points  5  and  6. 

Usage: 


CALL  ITEMS  (iENTJSf) 

IENTKY  =  5  prints  BCD  names  of  specified  variables. 

IENTKI  =  6  prints  values  of  specified  variables. 

CODES  and  VALUES  are  used  for  output. 

All  variables  specified  on  the  VPR1NT  card  will  be  output.  Up  to 
twenty  variables  may  be  specified. 

Remarks: 

ITEMS  is  called  by  EXE. 

ITEMS  calls  CODES  and  VALUES. 

ITEMS2  is  identical  to  ITEMS  except  for  the  use  of 
vehicle  2  COMMON  blocks  and  auxilitx.’y  subroutines. 
ITEMS2  is  called  by  EXE2. 

A  flow  chart  for  ITEMS  is  presented. 


•  COMBAT  and  COMBATS  -  Combat  Control  Routine 
Purpose: 

To  set  the  initial  values  of  the  combat  parameters  and  act  &s  the 
calling  program  to  other  subroutines  for  combat  role  and  tactics 
selection 

Usage: 

Entry  is  made  to  this  routine  by  the  folloving  statement 

CALL  COMBAT  ( IENTRY ) 
where  IENTRY  is  a  fixed  point  variable. 

IENTRY  =  1 

This  is  the  pre-data  initialization.  At  this  entry  the  nominal 
values  are  established  for  the  following  combat  parameters. 


MNEMONIC 

NOMINAL 

VALUE 

DESCRIPTION 

NGSPE 

1.0 

Load  factor  to  use  in  the  maximum  specific 
energy  maneuver. 

DLTSPE 

2.0 

Number  of  seconds  "Look  Ahead"  UBOd  to 
determine  maximum  specific  energy  path. 

MSUBE 

1.0 

Mach  number  at  which  to  start  "NGSPE/2" 
path  during  maximum  specific  energy  maneuver 

MSUPE 

1.2 

Mach  number  at  which  to  end  "NGSPE/2"  path 
during  maximum  specific  energy  maneuver. 

GAMSPE 

-15.0 

Lower  bound  on  ’Mght  path  angle  during 
"NGSPE/2"  portion  of  maximum  specific 
energy  maneuver. 

HSUBE 

25000. 

Altitude  at  which  to  start  "NGSPE/2"  path 
during  maximum  specific  energy  maneuver . 

AFSUBE(l) 

1.0 

Factor  applied  to  ALPNG  to  establish  lower 
bound  on  angle  of  attack  for  aubsonic 
portion  of  maximum  specific  energy  path. 

AFSUBE ( 2 ) 

1.5 

Factor  applied  to  ALPNG  to  establish  upper 
bound  on  angle  of  attack  for  subsonic 
portion  of  maximum  specific  energy  path. 

_  .  _  . 

MNEMONIC 


NOMINAL 

VALUE 


DESCRIPTION 


AFSUPE(l) 

-1.0 

Factor  applied  to  ALPNG  to  establish  lower 
bound  on  angle  of  attack  for  supersonic 
portion  of  maximum  specific  energy  path. 

AFSUPE(2) 

1.5 

Factor  applied  to  ALPNG  to  establish  upper 
bound  on  angle  of  attack  for  supersonic 
portion  of  maximum  specific  energy  path. 

INDDIV 

0 

Switch  indicator  set  by  program  (Do  not 
input  as  data). 

IPCMSG 

1 

Print  control  for  combat  message 

1  -  Print  combat  messages 

0  =  Do  not  print  combat  messages 

CPCON(i) 

1.0 

Factor  applied  to  maximum  angle  of  attack 
(AMAXD)  to  establish  the  upper  bound  on 
desired  angle  of  attack  (ALPDD) 

CPC0N(2) 

CPCON ( 12 ) 

30.0 

Role  selection  logic:  attack  incoming 
targets  when 

C0NBD  <  CPCON (12) 

CPCGN(13) 

60.0 

Role  selection  logic  cone  angle  for  second 
sector:  offensive  role  when 

C0NBD  <  CPCON (13) 

CPCON (14) 

1.0 

CPCON (15) 

0.0 

CPCON (16) 

10.0 

CPCON (IT) 

10.0 

Role  selection  logic ,  take  evasive  action 
when 

ESERDT  <  CPCON (IT) 
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MNEMONIC 


NOMINAL 

VALUE 


DESCRIPTION 


CPCON (18) 

1.0 

Throttle  factor  for  hard  turn  defensive 

maneuver 

AND  =  ANMAX  *  CPC0N(l8) 

CPC0N(19) 

1.0 

Angle  of  attack  factor  for  hard  turn 
defensive  maneuver 

ALPDD  =  AMAXD  *  CPCON (19) 

CPCoN ( 20 ) 

90.0 

Table  of  desired  band  angles  for  hard  turn 

defensive  maneuver. 

CPCOIi  (29) 

CPCON ( 3 ) 

90.0 

CPCON  (1+) 

CPCON ( 5 ) 

1.0 

Finite  control  rate  logic:  factor  on  angle 
of  attack  rate 

ALPHD1  =  ALPDOT  *  CPC0N(5) 

CPCON ( 6 ) 

1.0 

Finite  control  rate  logic:  rate  adjustment 
factor  for  angle  of  attack 

RAFALP  =  ALPDOT  *  PELTS  *  CFCCN(6) 

CPCON (7 ) 

1.0 

Finite  control  rate  logic:  factor  on  bank 
angle  rate 

BA77D1  =  BAD0T  *  CPC0N(7) 

CPC0N(8) 

1.0 

Finite  control  rate  logic:  rage  adjustment 
factor  for  bank  angle 

RAFBA  =  BADOT  * . DELTS  *  CPC0N(8) 

CPCON (9) 

1.0 

| 

Finite  control  rate  logic:  factor  on  throttle* 
rate  1 

AN7771  =  AND0T  *  CPCON ( 9 ) 

cnoN(io) 

1.0 

Finite  control  rate  logic:  rate  adjustment 
factor  for  throttle 

RAFAN  =  ANDOT  *  DELTS  *  CPCON ( 10 ) 
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MNEMONIC 


NOMINAL 

VALUE 


DESCRIPTION 


CPCON ( 11) 

90.0 

Rolf  selection  logic,  outgoing  target  when 

PHOFD  <  CPCON (11) 

CPCON ( 30 ) 

1.0 

Throttle  factor  for  line-of- right  vector 
rotation  defensive  maneuver 

AND  =  ANMAX  *  CPCON ( 30 ) 

CPCON(32) 

1.0 

CPCON (33) 

1.0 

Angle  of  attach  factor  for  Split  S  defensive 
maneuver 

ALPDD  =  AMAXD  *  CPCON (33) 

CPCON (3*0 

1.0 

Throttle  factor  for  Split  S  Defensive  man¬ 
euver 

AND  =  AMAXD  *  CPC0N(3*0 

CPCON (35 ) 

i.O 

CPCON (36) 

CPCON (37) 

CPCON (38) 

1.0 

Angle  of  attack  factor  for  lag-pursuit  offen¬ 
sive  maneuver 

ALPDD  =  AMAXD  *  CPCON (38) 

CPCON (39) 
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MNEMONIC 


NOMINAL 

VALUE 


DESCRIPTION 


MNEMONIC 

NOMINAL 

VALUE 

DESCRIPTION 

CPCON (50) 

1.0 

Attacking  maneuver:  throttle  control  if 

RP  <  RI77F  then 

AND  =  ANMAX  *  C0C0N(50) 

INDBNC. 

0 

Boundary  control 

INDBNCi  =  0,  i^h  boundary  violation  can 
not  be  controlled 

=  ]  ,  i*'1  boundaj'y  violation  can  be 
controlled  by  angle  of  attack 

ALPDOT 

20.0 

Maximum  rate  at  vnich  angle  of  attack  can 
be  changed  (DEG/SEC) 

BADOT 

45. 0 

Maximum  rate  at  which  bank  angle  can  be 
changed  (DEG/SEC) 

ANDOT 

.2 

Throttle  rate  (Fraction  of  full  throttle/ 
sec ) 

AMAXD 

15.0 

Maximum  angle  of  attack  (DEG) 

ANMAX 

1.0 

Maximum  throttle  setting 

VMINF 

200. 

Minimum  vehicle  velocity  (Ft/Sec) 

IENTRY  =  2 


This  is  the  post-data  initialization.  At  this  entry  the  values  of  the 
array  CPCON  is  output  on  unit  6. 

IENTRY  =  3 


At  this  entry  subroutines  ANGLES,  DETECT,  ROLEx,  HxIMIT ,  and  CRATE  are 
called  role  selection  and  to  determine  desired  angle  of  attack,  bank 
angle,  and  throttle  setting. 

IENTRY  =  It 


Entry  for  initial  print. 
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IEHTRY  =  5 

Entry  to  print  mnemonic  headings .  The  following  codes  are  printed 
ALPHD1  EA77D1  AM7771  ALPDD  BAD7D  AMD  ALPHD  BA77D  AM  XAIMF 
YAIMF  ZAIMF 


IENTRY  =  6 

At  this  entry  the  corresponding  values  to  the  mnemonic  codes  of  Entry  5 
are  printed. 

Remarks: 

A  flow  chart  for  COMBAT  is  presented.  COMBAT  2  is  identical  except 
for  use  of  veLicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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Purpose 


To  perform  the  calculations  necessary  to  integrate  an  array  of  variables 
by  the  Runge-Kutta  method;  to  determine  an  estimate  of  the  truncation 
error  and,  with  this  information,  to  decide  whether  to  accept  or  reject 
an  integration  step;  to  compute  a  new  step  size,  HO,  (based  on  the 
truncation  error)  to  be  used  for  the  next  integration  step. 

T  -  the  independent  variable  for  the  integration 

TO  -  the  value  of  T  at  the  last  valid  integration  step 

Y  -  array  of  current  values  of  integrated  variables 

YD  -  da  array  of  the  values  in  the  Y  array  at  the  last  valid 

integration  step 

P  -  array  of  current  values  of  derivatives  of  integrated 
variables 

Usage: 

In  general,  a  numerical  integration  routine  nuot  make  several  inter¬ 
mediate  or  preliminary  calculations  of  the  integrated  variables  before 
an  integration  step  ia  actually  taken.  This  routine  is  organized  so 
that  for  each  basic  entry  point  to  it,  one  of  the  several  intermediate 
calculations  of  the  integrated  variables  is  performed.  The  reason  for 
organizing  it  this  way  is  ao  that  MIMINF  does  not  have  to  be  shackled 
with  the  responsibility  of  driving  other  calculations  which  need  to  be 
performed  during  an  integration  step;  as  a  consequence,  MIMINF  itself 
is  virtually  void  of  complex  logic. 

EXE  proper  is  the  only  routine  which  calls  MIMINF.  Communication 
between  EXE  and  MIMINF  is  accomplished  for  the  most  part  by  the  indicator 
NTMTAS.  On  the  call  to  MIMINF  at  which  the  final  values  of  the  inte¬ 
grated  variables  for  an  integration  step  are  computed,  MIMINF  sets 
MIMPAS  ■  0  in  order  to  inform  EXE  that  the  step  is  tentatively  all  right. 
After  each  return  from  a  basic  call  to  MIMINF,  EXE  increases  MIMPAS  by 
1.  EXE  makes  each  basic  call  to  MIMINF  with  (the  absolute  value  of) 
MIMPAS  aa  the  argument.  Hence  at  each  basic  call  to  MIMINF  the  next 
intermediate  calculation  of  the  integrated  variable  is  performed. 

Now  every  integration  step  that  is  made  has  to  be  double  checked  by 
MIMINF;  it  is  only  when  th~  next  integration  step  is  ready  to  start  that 
there  is  enough  information  for  MIMINF  to  get  a  good  estimate  of  the 
truncation  error  that  has  occurred  on  the  last  integration  step.  Hence 
at  this  time,  EXE  makes  the  terminal  call  to  MIMINF  (entry  point  5)  for 
the  truncation  error  check.  If  the  truncation  error  ia  too  large  MIMINF 
(5)  seta  MIMPAS  "  -1;  this  informs  EXE  that  the  integration  is  to  be 
backed  up  and  the  last  integration  step  ia  to  be  attempted  again  with 
a  smaller  step  size  h  (i.e.  HO)  determined  by  MIMINF  (5). 


Method: 


The  method  employed  here  performs  three  intermediate  calculations  of  the 
integrated  variables,  yA,  7^,  Jq,  before  the  final  value  of  the  inte¬ 
grated  variables,  yn+l,  is  calculated. 

&itry  point  1:  yA  "  7n  +  h^2  yn 

Entry  point  2:  70  =  yR  +  h/2  yA 

•Entry  point  3:  7Q  =  7n  +  h  70 

Entry  point  4:  yn+1  =  7n  +  h/6  fyn  +  2yft  +  2y0  +  yc) 

(The  calculation  of  the  necessar7  derivatives  (i.e.  7n,7. ,7p,7c  will  have 
been  done  elsewhere  by  the  time  that  entry  point  of  MDCDJF  13  called. 

The  general  form  of  these  derivatives  is 

fn  ~  y  (7n»^n) 

7a  “  f  (7a,  tn  +  h/2) 

h =  f  ^  **  +  h/2) 

7C  *  f  (7C,  ^  +  h) 

The  derivatives  are  picked  up  from  the  P  array.  The  values  of  the  inte¬ 
grated  variables  are  put  in  the  I  array.  At  present,  at  most  25  vari¬ 
ables  may  be  integrated. 


Entry  point  5  Truncation  error  estimation  and  step  size  control 


At  this  entry  point,  the  truncation  error  Tn  is  estimated  as 


This  is  done  for  each  integrated  variable.  Finally,  Tn*  is  defined  as 
the  maximum  in  absolute  value  of  all  the  Tn's,  Now  there  are  three 
possibilities : 


(a)  EMIN  <  Tn  *  <  EMAX  :  in  this  case  MIMINF  (5)  accepts  the 
integration  step  and  retains  the  same  value  of  HO  for  the 
next  step. 


(b) 

(c) 


T  *  <  EMIN  :  in  this  case  MBUNE.  (5)  accepts  the,  integration 
step  and  sets  HO  “  sgn  (HO)  min  |2  |H0| 


|2  | H0|  ,  |AMXER|J 

>  EMAX  :  if  |H0|  ■  AMINER  the  integration  step  is 
accepted;  otherwise  MIHINF  (5)  rejects  the  integration  step 
(setting^ MIMPAS  ■  -l)  and  sets  HO  ”  sgn  (HO)  max  jl/2  jHOj, 


V 


(AMINER  |  J 


L 


Ikk 


"Variable  step"  integration  ia  an  option  (specified  in  the  data  by 
INDVAR  *  1),  If  IWDYAR  ia  0  then  the  "fixed  step"  option  Ao  used. 

For  the  fixed  step,  the  calculations  of  KDCTNF  (5)  as  described  above 
are  not  used;  entry  point  5  for  fixed  step  is  trivial;  HO  is  set 
equal  to  DELTS. 

MIMINF2  performs  the  calculations  necessary  to  integrate  the 
second  vehicle  array  of  variables.  It  is  identical  to  MBJINF 
except  for  the  use  of  Vehicle  2  COMMON  blocks.  It  should  be 
noted  that  MIMINF2  is  called  directly  by  EXE.  Program  EXE 
thus  directly  controls  both  vehicle  equation  of  motion  inte¬ 
grations.  The  indicator  INDNUM  controls  the  number  of  vehicles 
in  EXE;  INDNUM  *  1  signifies  only  one  vehicle  is  being 
employed,  and  INDNUM  =  2  signifies  two  vehicles  are  being 
employed.  A  flow  chart  for  MIMINF  is  presented. 
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19.  TIMID  and.  TIMID2  -  Step  Function  Routines  for  Time  Points 


Purpose : 

To  compute  the  step  function  y  **  t(x)  given  by 
y  “  min  |  yel  j  y  ^  x  j 

where  Y  contains  the  following  types  of  elements 

1)  all  integral  multiples  of  DELTS 

2)  y,  m  t.(x)  where  t,  is  the  step  function  evaluated  by  the 
TiMOOl Subroutine . x 

Usage: 

CALL  TIMID  (IX, YY) 

where 


XX  is  the  argument. 

YY  is  the  answer. 

EXE  is  the  only  routine  which  calls  TIMID;  it  does  so  to  compute  the 
next  stage  time  point  that  mist  be  hit  as  a  function  of  the  current 
stage  time.  In  order  that  TIMID  not  return  a  stage  time  point  which 
is  "too  close"  to  the  current  stage  time,  EXE  calls  TIMED  as  follows: 

CALL  TIMID  (TIMES  +  AMINER,  TIMPT) 

Remarks: 

TIMIP2  computes  y  =  t(x)  for  the  second  vehicle.  TIMID2  is 
identical  to  TIMID  except  for  the  use  of  vehicle  2’s  COMMON 
blocks  and  auxiliary  subroutines.  A  flow  chart  for  TIMID 
is  presented. 


1*»7 


YY  »  AM  I  N  (YY,Y BOUND) 


and  VALUES2  -  Value  Print  Routines 


20.  VALUES 
Purpose 

To  print  the  values  of  floating  point  variables . 


Usage 


CALL  VALUES  (L,  XL,..., EL) 


L  is  an  integer  C  <  L  <  8  identifying  the  number  of 

arguments  following  it. 


XL 

XL 


L  cells  each  containing  the  value  of  some  floating 
point  variable  to  be  printed. 


The  above  call  adds  the  L  variable  values,  X1,...,XL,  to  the  list  of 
values  to  be  output  on  the  next  line  of  print.  When  8  values  have  been 
accumulated  the  line  is  printed,  any  excess  values  are  added  to  the  list  for 
is  next  line  of  print.  If  L  is  0,  then  the  values  in  the  existing  list  (the 
number  may  be  less  than  eight)  are  printed  immediately. 

lines  accounting  is  taken  care  of  within  this  routine. 

This  subroutine  is  designed  to  be  used  in  conjunction  with  the  CODES 
subroutine. 

Values  are  printed  with  a  "1H515.7"  format. 

CODES  and  VALUES  control  small  secondary  output  buffers  within  the  program 
itself. 

Normally  a  call  to  CODES  is  made  before  any  call  to  VALUES  in  order  to 
identify  the  values.  The  CALL  CODES  (0)  is  necessary  to  be  aura  that  the  codes 
are  printed;  the  CALL  VALUES  (0)  is  necessary  to  be  sure  the  values  are  printed. 
(If  this  is  not  done  the  buffers  may  never  be  flushed.) 

Remarks: 

A  flov  chart  for  VALUES  is  presented.  VALUES2  is  identical  but  is 
required  for  cori-'.t  output  fu-ition  ior  the  second  vehicle. 


values 


START 


21.  MISCUT  and  MISCUT2  -  Abortion  Routine 


Furpoae : 

To  terminate  the  trajectory  if  any  specified  variable  lies  outside  a 
specified  upper  or  lower  bound  for  that  variable. 

Usage: 


CALL  MISCUT 

If  a  specified  variable  lies  outside  a  specified  upper  or  lower  bound, 
TIME  is  set  to  1.E36.  WAX  should  not  be  greater  than  1.E36  when  use 
of  this  routine  is  specified.  Thus  the  trajectory  will  terminate  on 
MISSED  CUTOFF. 

Up  to  nine  variables  may  be  specified  for  bounding  on  the  MISVAR  card. 
Values  for  bounding  the  variables  appear  in  the  corresponding  positions 
on  the  BOUNDS  card.  Testing  of  the  boundaries  is  determined  by  the 
LUBGLB  card. 

The  integers  appearing  on  the  LUBGLB  sard  are  of  the  form 

ij 

j  specifies  that  the  jth  variable  on  the  MISVAR  card  will  be  checked. 

When  i  =  0  the  jth  value  on  the  BOUNDS  card  will  be  ignored  and  no 
check  made. 

When  i  -  1  the  jth  value  on  the  BOUNDS  card  will  be  an  upper  bound 
for  the  jth  variable  on  the  MISVAR  card. 

When  i  =  2  the  jth  value  on  the  BOUNDS  card  will  be  a  lower  bound  for 
the  jth  variable  on  the  MISVAR  card. 

Remarks: 

MISCUT  is  called  by  EXE.  MISCUT2  terminates  the  trajectory  if  any 
specified  second  vehicle  lies  outside  specified  upper  and  lower 
bounds.  A  flow  chart  for  MISCUT  is  presented;  MISCUT2  is  identical 
except  for  use  of  second  vehicle  COMMON  blocks. 
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22.  ONLINED  -  On  Line  Display  Routine 


Purpose : 

To  display  a  thirty-nine  character  message  on  the  CDC  display 
station  of  a  CDC  200  user  terminal. 

Method: 

The  system  routine  encode  is  used  to  construct  the  message  line, 
and  the  syotem  routine  scope  is  used  to  display  the  message  on  the 
CliT  device. 

Usage : 

Entry  is  made  to  this  routine  with  the  following  statement: 

CALL  ONLINED 


Subroutines  Called: 


ENCODE 

SCOPE 
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A. 


1. 


23. 


Diram  ana  DifWd  -  Point  Mass  Equations  of  Motion 

Purpose: 

For  performing  all  calculations  necessary  for  the  three-degree  of  freedom 
trajectory  equations. 

Method: 

DIFEQ1  has  several  subprograms;  in  general  the  subprograms  are  respon¬ 
sible  for  performing  the  calculations  made  necessary  by  certain  physical 
attributes  of  the  vehicle,  the  trajectory  or  the  environment.  DIFEQ1 
may  be  called  from  EXE,  EXTRAN,  and  PTBEQN  (by  first  passing  through  the 
interface  routine  DIFEQ). 


HETS  Temperature  and  heating  parameters 

TFFS  Thrust  force;  mass  flow 

FPPS I  Control  variables  as  functions  of  already  computed 

FPFG f  variables 

SACS  Wind  axes  aerodynamic  forces  on  vehicle 

ATMS  Atmospheric  parameters 

GVSP  Local  geocentric  gravitational  force  components 

LATS  Conversion  from  geodetic  to  geocentric  latitude  and 

vice-versa 

In  addition  to  the  vehicle  and  planetary  characteristics  subprograms 
above,  D1FEQ1  is  broken  down  into  a  sequence  of  control  subroutines. 


Subroutine : 
DEQPRE 

DEQINI 


Used  at  Entry  1  from  EXE 
Used  at  Entry  2  from  EXE 


DEQBCI 


Used  at  Entry  3  from  EXE 


DEQACI 

DEQSPI 


Used  at  Entry  3  from  EXE 
Used  at  Entry  4  from  EXE 


DEQVAL 


Used  at  Entry  5  from  EXE 


DEQCOD 


Used  at  Entry  6  from  EXE 


DEQIV 


Used  at  Entry  7  from  EXE 


DEQHT 


Used  at  Entry  8  from  EXE 


FIRFUN 


Control  computation  of  fire  control  functions 
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■n  ’tr-f 


GAM91  Controls  flight  through  the  vertical 

CTLIl’R  Controls  instantaneous  control  variable 

iteration  process. 


With  DIFEQ1  itself  there  is  a  considerable  amount  of  code  that  may  be 
by-passed  depending  on  the  type  of  problem  being  considered.  Many  of 
the  calculations  done  at  DIFEQ1  (3)  would  be  purely  auxiliary.  Therefore 
for  calculations  of  this  type,  there  are  indicators  which  may  be  input  * 

0  if  it  is  desired  that  a  tv.  icular  calculation  be  performed.  Since 
DIFEQ1  (3)  has  to  be  called  so  many  times  during  a  trajectory,  any  dele¬ 
tions  of  calculations  which  are  not  essential  will  help  to  cut  down  on 
the  machine  time. 

A  general  description  will  be  given  of  each  entry  point  associated  with 
DIFEQl.  Detailed  information  can  be  obtained  in  the  user's  manual  for 
each  entry  point  used  by  DIFEQ1. 

DIFBQ1  (1) 

At  this  entry  point  nominal  values  of  indicators  are  set  an**  the  values 
of  the  integrated  variables  are  initialized  at  0.  Also,  nominal  values 
are  set  for  the  standard  constants  used  in  the  equations,  (e.g.  polar 
and  equatorial  radius  of  the  earth).  See  DEQPRE. 

DIFBQ1  (2) 

This  is  the  initial  transformation.  It  is  always  performed  at  the 
beginning  of  a  trajectory;  it  may  be  performed  at  the  beginning  of  a 
major  stage  (see  EXT RAN).  Also,  it  may  be  used  in  certain  combinations 
for  the  h-transformation  (see  EXTRAN).  See  DEQINI . 

DIFEQ1  (3) 

The  main  body  of  the  calculations  in  DIFBQ1  appear  at  this  entry  point. 

The  primary  purpose  at  this  entry  point  is  to  compute  the  derivatives 
of  the  variables  that  are  being  integrated.  See  DEQJ5CI,  DEQACI ,  and  CTLITR. 

DIFEQl  Ik) 

At  this  entry  point  the  variables  computed  at  either  the  initial  trans¬ 
formation  or  for  the  h-transformation  are  printed.  See  DEQSPI. 

DIFBQ1  (5) 

At  this  entry  point,  the  codes  are  printed,  the  codes  identify  tl  e 
variables  printed  at  DIFEQl  (4)  and  DIFEQl  (6).  See  DEQUAL 

DIFEQ1  (6) 

At  this  entry  point  the  values  of  the  variables  computed  at  DIFEQl  (3) 
are  printed.  Also,  tha  values  of  the  state  variables  (and  perhaps 
other  intonated  vrlables;  are  printed.  Ptetr?  i*  **de  to  DIFEQ1  (6) 
only  at  ralid  integration  steps.  In  some  cases  the  value  of  a  variable 
is  printed  only  if  the  corresponding  indicator  ii  set  in  the  data.  See 
DEQCOD. 
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DTFBQ1  (7) 

At  this  entry  point  the  variables  to  be  integrated  are  defined  by  making 
a  call  to  INTGRT  for  each  variable  to  be  integrated.  In  some  instances 
this  will  be  done  only  if  the  appropriate  indicator  is  set.  See  DEQIV, 

DIFEQl  (8) 

At  DIFEQl  (8)  an  h-transformation  is  made,  this  transformation  may  be 
perforated  at  a  stage  point  (see  EXT RAN).  See  DEQHT. 

Remarks; 

Subroutine  DIFEQ2  is  identical  in  form  to  DIFEQl.  DIFEQ2  controls  the 
vehicle  2  equation  of  motion  calculations  using  appropriate  COMMON 
blocks  and  auxiliary  subroutines.  A  flow  chart  of  DIFEQl  is  presented. 
For  user  convenience,  the  original  single  vehicle  equation  of  motion 
routine,  DIFEQl,  is  also  presented. 


< I  )r>n 


•craft* 


ORIGINAL  SINGLE  VESICLE  EQUATIONS 
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2k.  DIFEQ3  -  Dummy  Subroutine 


DIFEQH  -  Dummy  Subroutine 


DIFEQ5  -  Sample  Arbitrary  Differential  Equations 

This  is  intended  only  as  an  example  of  how  a  new  set  of  differential 
equations  may  be  programmed  for  use  in  conjunction  with  the  optimization 
program.  The  equations  of  this  example  are  in  cylindrical  coordinates 
and  describe  a  two-dimensional  point  mass  with  constant  thrust  in  a 
vacuum  having  direction  of  thrust  as  a  control  variable.  No  flow  chart 
is  included  with  this  subroutine. 


DIFEQ6  -  Dummy  Subroutine 


25.  TLUREV, -  Two  Dinansional-labla.  LooK-up  Routine  (Special) 


Purpose 

To  linearly  interpolate  in  a  table  which  has  just  two  points. 

Usage 

CALL  1LUREV  (X,  C,  Y,  IER) 

where 

X  is  tue  argument 

Y  is  the  functional  value 

IER  is  set  to  1  if  extrapolation  was  necessary 

C  is  the  array  containing  the  points  of  the  table  according  to  the 
following  format 

C(l)  =  Sot  used 

C(2)  *  Xx 

C(3>  *  \ 

M  * 

C(5)  -  Y2 

It  is  assumed  that  <  X^ 

Remarks 

MANTGT  and  REV  are  the  only  routines  which  use  this  routine. 
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(C(5)-C(3))«(X-C(2)) 
C (4)  -  C(2) 


Y  =  C  ( 3)  + 


26.  A QOS  -  Arc  Cosine  Routine 
Purpose 

To  compute  the  arc  cosine  of  a  normalized  floating  point  argument  X. 

Method 

For  J  X  |  <  7*4505806  x  10~9  the  arc  cosine  is  set  equal  to  tt/2.  For  x  -  1. 
arc  cosine  is  set  equal  to  zero  and  for  X  =  -1.  arc  cosine  is  set  equal  to  n. 

When  the  argument  i  f1  t  1.  the  routine  gives  the  arc  cosine  in  radians  from  0  to  nr. 

Usage 

The  arc  cosine  is  computed  using  the  statement 
Y  =  ACOS(x) 

where,  j  X  j  <  1.  and  Y  0  Cos”^X. 

No  error  returns  are  provided. 
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ACO»l. 


27.  ASBt  r-  Arc  Stoa  Routine 

Eamaa. 

To  compute  the  arc  sine  of  a  normalized  floating  point  argument  X. 
Usage 

The  arc  sine  is  confuted  using  the  statement 

ASIN  -  1.5707963  -  ACOS(X) 

T  =  ASIN(X) 

where  j  X  J  s  1.  and  T  ■  sin”^  X 
Remarks 

No  error  returns  are  provided 
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28.  TLU  aPd  T'LU2  -  Two-Dimensional  Table  Look  Up  Routine 


Purpose 

Given  an  argument  X,  to  conpute  T  *  f(x)  from  a  table  of  X  and  T  values  by 
linear  interpolation. 

MsUioa 

The  table  of  X  values  is  searched  until  for  some  i*  Xi<  *  f  X  itl‘  Linear 
interpolation  is  then  performed.  If,  for  some  i,  X  ■  Xj_  then  I  is  set  to  Y^. 

Usage 

Entry  is  made  via  the  statement, 

CALL  TLU  (X,C,Y,IND) 

whs re,  X  ■  Variable  name  of  the  argument. 

C  =  Array  name  of  the  curve  being  used. 

Y  =  Variable  name  of  the  interpolated  value. 

IND  =  0,  no  errors  indicated. 

1,  limit  of  the  curve  has  been  exceeded  and  the  result  an 
extrapolation  using  the  last  two  points. 

The  curve  C  must  be  stored  as  follows: 

C(l)  =  N  =  Number  of  points  in  curve  (fixed  point  integer) 

C{2)  =  XL 

C(3)  -  \ 

C(4)  «  Xg 

C(5)  =  Y2 

• 

C(2N)  -  Xj, 

C(2N+1)  -  Yn 
Remarks : 

A  flow  chart  for  TLU  is  presented.  TLU2  is  identical  to  TLU  except  for 
use  of  vehicle  2  COMMON  blocks. 
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29 .  ATAN2  -  Arctangent  Routine 


Purpose 

To  compute  the  arctangent  of  the  quotient  of  two  nonualized  floating 
point  quantities,  A/B,  with  proper  quadrant  control. 

Method 

The  routine  confutes  the  quotient  X/T.  The  arctangent  is  computed  with 
quadrant  according  to  the  sign  of  Y  and  X.  If  X  =  0  and  Y  y  0,  the  routine 
computes 

Y  =  tan'1  ( r/X)  »  T  .  n 

1*1  2 

If  X  *  0  and  Y  =  0,  it  computes 

Y  =  tan*"1  (Y/X)  =  0 


Ua3££ 

The  ar 'tangent  of  T/X  is  obtained  via, 
Y  =  ATAN  2  (1,X) 
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FUNCTION  ATNNIIT.X) 


I 

I 

t 

! 


3.73 


30  .  TLU1  -  Two  -  Dimensional  Table  Look-up  Routine 


Purpose 

Given  an  argument  X,  to  compute  Y.  =  f(X)  by  linear  interpolation,  where 
i  a  1. 

Method 

The  table  of  X  values  is  searched  until  for  some  i,  <  X  <  X^+i .  Linear 
interpolation  is  then  performed  on  the  number  of  curves  requested.  It  for  some 
i,  X  =  X^,  than  the  Y.  are  set  to  that  corresponding  value  of  the  dependent 
variable . 

Usage 

Entry  is  made  via  the  statement. 

CALL  TLU1  (N,  TAPLE, TIME, NDEP, ANS, IND ) 

idle  re, 


N  =  The  number  of  points  in  each  curve. 

TABLE  =  The  array  name  containing  the  sets  of  curves. 

TIME  =  The  variable  name  of  the  argument. 

NDEP  =  The  number  of  curves  contained  in  the  arraj  CURVE. 

ANS  =  The  array  name  ir.to  which  the  NDEP  answers  are  to  be  stored. 

IND  =  0,  no  errors  indicated  and  all  interpolations  seem  to  be  good. 

1,  the  argument  X  lies  outside  the  range  of  the  independent 
variable.  If  less  than  the  range,  the  first  points  were 
used.  Tf  greater,  the  last  points  were  used. 

The  table  "CURVE"  must  have  been  set  up  as  follows: 

CURVE(l)  =  X1 

CURVE( 2 )  =  X2 

CURVE(3)  = 


curve(n)  =  x,^ 

CURVE(N+1)  =  Y. 

X1 

CURVE (N+2)  -  Y 

2 

CURVE(N+3)  =  T 

13 


CURVE(2N)  - 
CURVE(2N+1)  =  T2 
CURVE(2N+2)  *2 
CURVE(2S+3)  -  *2 

3 

•  • 

.  * 

CURVE(3N)  =  Y 

2n 

CURVE(3N+1)  =  I, 

•31 

.  • 

•  * 

CURVE((NDEP+"1)*N)  -  Yjjoep 

N 

Remarks 

No  other  routines  are  called  from  this  routine. 


31.  TIMHEV  and  TIMREV2  -  Time  Point  Collection  Routine 


During  the  forward  trajectory,  to  build  an  array  of  stage  time  points 
that  must  be  "hit”  during  the  corresponding  stage  of  the  reverse 
trajectory. 


Usage: 


CALL  TIMHEV  (TIMRS,  TOL) 


TIMRS  the  stage  time  point  that  is  to  be  added  to 

the  list  of  points  that  must  be  hit  in  the 
corresponding  stage  of  the  reverse  trajectory. 

TOL  a  tolerance:  if  a  previous  point  of  the  list 

differs  from  the  current  point  to  be  added  by 
less  than  TOL,  the  current  point  is  not  added. 

The  name  of  the  array  of  points  is  TIMESA.  The  TIMESA  array  is  built 
in  monotonically  increasing  order.  If  for  any  reason  TIMRS  is  less 
than  a  point  in  the  TEffiSA  array,  all  points  greater  than  TIMRS  in  the 
TIMESA  array  are  annihilated.  MPT  is  the  current  number  of  points  in 
the  array.  NPT  must  net  exceed  the  dimension  of  the  TIMESA  array ;  if 
it  does  the  case  will  be  terminated.  The  first  point  of  a  stage  will 
always  be  inserted  in  the  TIMESA  array. 

This  routine  was  written  in  anticipation  of  the  need  to  hit  stage  time 
points  in  reverse  for  a  number  of  different  reasons.  In  particular, 
the  routines  PARTS  and  CTVS  call  TIMHEV.  It  is  imperative  that  PARTS 
(3)  call  TIMHEV  with  the  current  stage  time  and  a  tolerance  of  0. 

TIMREV2  builds  the  array  of  stage  time  points  for  the  second 
vehicle  reverse  trajectory.  It  should  be  noted  that  all  variational 
optimization  problems  must  be  phrased  in  terms  of  the  firBt  vehicle 
data.  In  cooperative  variational  optimization,  a  program  modi¬ 
fication  setting  second  vehicle  control  variables  to  names  in  the 
first  vehicle  directory  is  required.  A  flow  chart  for  TIMREV  is 
presented.  TIMREV2  is  identical  to  TIMREV  except  for  use  of  the 
second  vehicle's  COMMON  blocks. 
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32.  PSUBR-Et  aluatlon  of  Partial  Routine 
Purpose ; 

To  calculate  matrices  of  partial  derivatives  numerically. 
Usage: 

This  is  a  general  routine;  it  is  used  in  the  following  manner: 
suppose  yx  -  fjfrp  3^) 


ym  =  ^m^xl*  •**» 

and  we  want  to  compute 

—  — 1 

d  yj  •  •  •  d  yi 
dxj  dx^ 

•  • 

J  -  • 

•  • 

dym  d^m 

then  a  call  to  PSUBR  should  be  made  as  follows: 

CALL  PSUBR  (Nl,LXfLXST,HB,N2,LY,ANS,JP,P,LPCNS) 
where  N1  is  n 

LX  is  an  array  containing  the  CCMMON  locations  of  the 
variables  Xp  x^. 

LXST  is  an  array  containing  the  CCMMON  locations  of  same 
variables  x^*,  . ..,  x^*  to  be  used  in  determining 
perturbation  sizes. 

HB  is  an  array  of  the  minimum  perturbation  sizes  to  be 
used  for  the  respective  variables  Xp  ...,  Xjj. 

N2  is  m 

LY  is  an  array  of  the  COMMON  locations  of  the  variable 
yl»  **•»  ym* 

ANS  is  J,  the  array  in  which  the  answer  is  to  be  stored 
(this  must  be  dimensioned  15  x  15) 

JP  is  an  array  of  indicators  one  for  each  variable  x, ,  . . . , 
JPh  =•  0  means  that  the  i'th  column  of  J  is  known  to  be  0 


P  is  a  constant  used  to  determine  the  perturbation  else. 

LFCNS  is  an  indicator  used  to  direct  PSUBR  to  the  code  for 
the  functions  fp  ...»  fm. 


Method: 

The  elements  of  J  are  computed  a  column  at  a  uime  by  the  following 
approximation 

bJj  ~  fjfol*  xj  +  ■»»>  *h)  ~  ••«>  ~  »»•>  ^^n) 

dxj  2hj 


where  hj  =  max  (HBj,  Jx^*J  10“^) 


If  JFj  »  0  then  Syl  is  set  =  0  for  i  *  1.  ....  m.  This  eliminates  the 

3  axj 

need  for  calling  the  routine  to  calculate  the  f  functions  for  column  j. 


The  variables  in  PSUBR  are  dimensioned  to  compute  a  15  x  15  matrix  of 
partials;  PSUBR  stores  the  answer  in  ANS  which  it  expects  to  be  dimen¬ 
sioned  15  x  15. 

After  AMS  has  been  computed  and  before  returning  PSUBR  makes  a  final 
call  to  compute  the  f  functions  with  the  original  values  of  the  x'a. 
This  is  intended  to  insure  that  values  of  variables  after  computing 
partials  are  the  same  as  the  value  before  computing  partiels. 


Remarks 

(1) 

PSUBR  is  called  only  by  PARTS. 

(2) 

P  is  FEXN  in  all  calls;  PEXN  is  input. 

(3) 

H3  is  either  HBAHN,  KBAHM,  HBARI,  OR  HBART  depending  on 
the  call;  all  of  these  are  input. 

(4) 

PSUBR  charges  the  routine  PTBEQN  with  the  responsibility 
for  driving  the  calculations  of  the  f  functions  specified 
by  LFCNS. 

(5) 

The  basic  state  variables  for  the  second  vehicle  may  be 
perturbed  through  PSUBR.  Appropriate  transformations  to 
permit  such  perturbations  are  introduced  through  subrou¬ 
tines  ONETWO”  and  TW00NE . 

(6) 

Perturbation  of  vehicle  two's  control  variables  in  a 
cooperative  variational  optimization  requires  a  program 
modification  in  ONETWO  and  TW00NE. 
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33.  PRPACK  -  Blocking  Routine  for  P&rtiaL. 

fiassn 


To  enter  values  into  an  array  for  output  to  tape. 

mm 

All  non-zero  numbers  (integer  and  floating  point)  are  packed  into  a  large 
array  before  being  output  to  tape. 

Linkage  to  this  routine  is  made  vii  the  statement. 

CALL  PRPACK  (MCONT, NPOINT,NSTATE, IFM, IGM, IT,ND, LALP, IDEL, IWA , 

XWAI,  IWBI,  INBPMT,  IPARTS,  IK,  IENTHf  ) 

where, 

MCONT 
NPOINT 
NSTATE 
IFM 
IGM 
IT 
HD 


IALP 
IDEL 
IWA 
IWA  I 
IWBI 
INDPMT 
IPARTS 
IK 

IENTRY 
COMMON  References 

CTABLE  in  numbered  COMMON  of  1 

SyfemUaw  c&JLlad. 

TZERO 

FORTRAN  I/O  routines. 


is  the  number  of  control  variables, 
is  the  number  of  values  in  CTABLE. 
is  the  number  of  State  Variables, 
is  a  ( NSTATE*NSTATE)  Matrix, 
is  a  (MCONT*NSTATE)  Matrix. 

TIME 

is  a  control  that  is  passed  to  the  reverse,  segjmsnt  0  at 
the  beginning  of  the  trajectory,  1  within  the  stage  and 
2  at  the  end  of  the  stage. 

CTABLE  points  for  that  time. 

TIME  step. 

Weighting  Matrix  indicator 

Constants  used  to  construct  the  W'  Matrix. 

Constants  used  to  construct  the  W'  Matrix. 

Number  of  end  constraints, 
array  of  terminal  partials 
not  used. 

serves  as  an  entry  point  to  the  subroutine. 


PRPACK 


34.  FUJSH1  and  FLUSH12  -  4  .ffer  Flush  Routine  for  PRPACK 


Purpose 

To  write  on  tape  a  partially-filled  suffer. 

KflthPd 

To  test  and  determine  if  a  buffer  is  partially  filled  and  if  so  to  write 
that  part  out  on  tape. 

Usage 

Ehtry  is  made  to  this  routine  by  the  following  statement: 

CALL  FLUSH1 
Remarks 

'lily  the  normal  I/O  FORTRAN  routines  are  used  by  this  routine.  A  flow 

chart  for  FLUSH1  is  presented.  FLUSH12  is  identical  except  for  the 
use  of  vehicle  2  COMMON  blocks  and  units. 
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35-  SETGRD  -  Paper  Plot  Grid  Sii  ?.  Routine 


Purpose: 

To  establish  maximum  and  minimum  dimension  for  x  and  y 
axes  for  each  paper  plot. 

Usage : 

Call  SETGRD  (XMAX,  XMIN,  YMAX,  YMIN,  IIC) 

XMAX  -  Maximum  value  in  the  X  array 

XMIN  -  Minimum  value  in  the  X  array 

YMAX  -  Maximum  value  in  the  Y  array 

YMIN  -  Minimum  value  in  the  Y  array 

NC  -  Number  of  curves  to  the  plotted 


SETGRD 

_ i _ _ 

DX  =  I YMAX  -  XMIN |  »  .075 
DY  =  | YMAX  -  YMINj  *  .075 

XB  =  XMAX  +  DX 
XM  =  XMIN  -  DX 
YB  =  YMAX  +  DY 
YM  =  YMIN  -  DY 
NT  =  NC 


RETURN 
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36 .  PAPERP  -  Printer-Plot  Control  Routine 


Purpose : 

To  provide  on-line  paper  plot  capability  during  equation  of 
motion  computation. 

Usage: 

Call  PAPERP  (X,  Y,  NX,  TITLET',  TITLEB) 


Where 

X  is  an  array  that  contains  the  values  of  the 

independent  variable  to  be  plotted 

Y  is  an  array  that  contains  the  values  of  the 

dependent  variable  to  be  plotted 

NX  is  the  number  of  data  points  to  be  plotted 

TITLET  120  character  title  that  will  be  placed  at 
the  top  of  the  plot  area 

TITLEB  120  character  title  that  will  be  placed  at 
the  bottom  of  the  plot  area 


PAPERP 


RETURN 
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37.  DETECT  and  DETECT2  -  Sensor  Control  Program 


Purpose: 

To  control  the  sensor  and  vision  routines. 

Remarks : 

A  flow  chart  for  DETECT  is  presented.  DETECT2  is  identical  except 
for  the  use  of  vehicle  2  auxiliary  sul~o  \tines. 
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38.  RPLE1  and  R0LE2  -  Role  Selection  Subprogram 


Purpose: 


To  define  each  vehicle's  combative  role  on  the  basis  of  instantaneous 
vehicle  states. 

Method : 

Each  vehicle  role  is  selected  on  the  basis  of  tneir  relative  states. 
Role  selection  includes  the  following: 


a.  ATTACK 

b.  OFFENSIVE 

c .  DEFENSIVE 

d.  EVASIVE 

An  override  permits  selection  of  a  fifth  role 
c .  PASSIVE 

The  subprogram  contains  the  standard  EXE  ENTRY  points. 

Remarks : 

A  flow  chart  for  R0LE1  is  presented.  R0LE2  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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39.  HLIMIT  and  HLIMIT2  -  Minimum  Altitude  Constraint  Routine 


Purpose : 

To  force  a  pull-up  maneuver  when  a  minimum  altitude  boundary  is  violated. 
Method : 

A  minimum  altitude  is  defined  as 

a.  Constant 

b.  Function  of  y 

c.  Function  of  y,  V 

When  this  minimum  altitude  limit  is  not  satisfied,  the  angle-of -attack , 
bank-angle  combination .which  maximizes  vertical  force  component,  is 
used.  Whenever  the  altitude  limiter  is  employed,  an  appropriate  message 
is  printed  by  MSGONE  or  MSG0NE2 . 

Remarks : 

A  flow  chart  for  fFiIMIT  is  vresented.  HLIMIT2  is  identical  except  for 
the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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1*0.  ANGLES  and  ANGLES2  -  Relative  Angular  Orientation  Routines 


Purpose: 

To  compute  the  relative  angular  orientation  of  the  two  vehicles 
in  body  axes  and  to  compute  steering  errors  from  the  reference 
vector  and  associated  functions. 

Usage: 

Called  from  the  i-ombat  logic  during  equation  of  motion  computations. 
Remarks : 

A  flow  chart  for  ANGLES  is  presented.  ANGLES2  is  identical  except 
for  the  use  of  vehicle  2  COMMON  blocks. 
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8'  =  tan"1  [sin3  cosot/cosBJ 


_ * _ 

TMTX: 

Compute  [U,  V,  W]  matrix 
Rotate: 

(-a)  about  y  axis 
(S')  about  z  axis 
(o)  about  x  axis 

:  .i  ~t 

TMTX: 

Compute  [  r ,  s ,  t]  matrix 
Rotate : 

(-B a)  about  x  axis 
(-YA)  about  y  axis 
{-oa)  about  z  axis 


EETO&A 
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1*1.  CRATE  and  CRATE2  -  Finite  Control  Rate  Routines 


Purpose : 

To  introduce  a  finite  control  rate  capability  into  combat  simulations. 
Method: 

Desired  control  vector  components  are  defined  by  either  combative  logic 
COMBAT  aud  C0MBAT2  or  the  flight  plan  programmer  routines,  FPPS  or  FPPS2. 
The  instantaneous  control  error  is  then  used  to  define  an  error  aagni  ud  • 
dependent  control  rate.  Control  values  axe  obtained  by  integration  of 
their  rates.  Logic  to  maintain  controllable  inequalities  is  incorporated 
in  the  finite  control  rate  option. 

Remarks: 

A  flow  chart  for  CRATE  is  presented.  CRATE2  is  identical  except  for  use 
of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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42.  TIMD01  and  TIM0012  -  Tabular  Time  Point  Routine 


Purpose: 

To  provide  additional  time  points  that  the  integration  routine  must  "hit" 
in  the  forward  trajectory. 

CALL  TIMD01  (VAL.TPT) 

VAL  is  the  current  time  value. 

TFT  is  the  next  tine  point  larger  than  VAL  which  should  be  "hit"  in 
addition  to  other  time  points  normally  "hit"  in  the  forward  trajectory. 
TIMDOl  performs  a  table  look-up  on  specified  2-dimensional  tables  to 
find  the  smallest  time  value  in  these  tables  which  is  larger  than  VAL. 

If  no  tables  are  specified  TIMDOl  returns  1.E36  for  TFT. 

TIMDOl  will  use  the  tables  specified  on  the  TIMTAB  card. 

Rwaftria: 

TIMDOl  is  called  by  TIMID.  TIM001.2  is  called  by  TIMID2  and  provides 
for  additional  time  points  in  the  vehicle  2  trajectory.  TIM0012  is 
identical  to  TIM001  except  for  the  use  of  the  vehicle  2  COMMON 
blocks.  A  flow  chart  for  TIM001  is  presented. 
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DEQFRE  and  DEQPRE2  -  Equation  of  Motion  Pre-Data  Initialization 
Purpose : 

Perform  the  DlFEQl(l)  and  DT.FEQ2(l)  pre-data  read  functions  for 
vehicle  1  and  vehicle  2. 

Method : 

Nominal  values  of  indicators  are  set,  and  the  integrated  variable 
values  are^ set  to  zero.  Nominal  values  are  set  for  standard  con¬ 
straints  used  in  the  equations  (e.g.,  polar  and  equatorial  radius 

of  planet ) . 
remarks : 

A  flov  chart  tor  DEQPRE  is  presented.  DEQPRE2  is  identical  except  tor 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines  and  sub¬ 
programs  . 


Subroutine  DECiPRE 
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44.  FIRFUN  and  FIRFUN2  -  Fire  Control  Subprogram 
Purpose: 

To  compute  selected  fire  control  function  effective  time  maneuvers. 
Method : 

The  fire  control  subroutines  integrate  the  period  of  time  that  each 
of  three  fire  control  characteristic  function  constraints  are 
satisfied.  The  three  fire  control  functions  for  each  vehicle  may 
involve  a  combination  of  up  to  nine  trajectory  variable  values. 
FIRFUN  and  FIRFUN2  have  the  standard  EXE  entry  points.  The  subpro¬ 
grams  are  called  by  DIFEQ  tuid  DIFEQ2,  respectively. 

Remarks: 

A  flow  chart  for  FIRFUN  is  presented.  FIRFUN2  is  identical  to 
FIRFUN  except  for  the  use  of  vehicle  2  COMMON  blocks  and  auxiliary 
subroutines. 
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1+5 .  GAM91  and  GAM92  -  Flight  through  Vertical  Routines 


Purpose ; 

To  permit  each  vehicle  to  fly  through  the  vertical  without  "locking 
on"  to  the  wind  axis. 

Method : 

Whenever  programmed  logic  indicates  that  a  vehicle  has  flown  through 
the  vertical,  a  180  degree  rotation  about  the  velocity  vector  is 
introduced.  This  rotation  is  combined  with  the  180  degree  rotation 
introduced  by  the  wind  axis  transformation  at  flight  through  the 
vertical.  The  resulting  combined  rotation  permits  a  smooth  passage 
through  the  vertical,  and  Tmmelmann-  or  Split  S-like  maneuvers  can 
be  performed. 

Remarks: 

A  flow  chart  for  GAM91  is  presented.  GAM92  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks. 
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Ii6.  DEQINI  and  DEQINI 2  -  Equation  of  Motion  Post-Data  Initialization 
Purpose: 

Perform  the  DIFEQl(2)  and  DIFEQ2(2)  post-data  read  function  for 
vehicle  1  and  vehicle  2. 

Method : 

This  is  the  initial  transformation.  It  is  always  performed  at 
the  beginning  of  a  trajectory;  it  may  be  performed  at  the 
beginning  of  a  major  stage  (see  EXTRAN  and  EXTRAN2).  Also,  it  may 
be  used  in  certain  combinations  for  the  h-transformation  (see 
EXTRAS  and  EXTRAN2). 

Remarks; 

A  flow  chart  for  DEQINI  is  presented.  DEQINI2  is  identical  except 
for  the  use  of  vehicle  2  COMMON  blocks,  auxiliary  subroutines,  and 
subprograms . 


A 


A 


SUBROUTINE  DEQINI 
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48.  FPPS  and.  FPPS2  -  Flight  Plan  Programmer 
Purpose: 


To  provide  an  alternative  for  computing  a  variable  (which  would  other¬ 
wise  be  a  control  variable)  as  a  tabular  function  of  any  variable  already 
computed. 

Method: 

It  is  legitimate  to  use  FPPS  only  to  compute  those  variables  which  are 
allowed  to  be  control  variables.  Up  to  six  different  control  type 
variables  may  be  confuted  through  the  use  of  FPPS.  FPPS  is  a  subprogram 
of  DIFEQi;  it  has  the  standard  entry  'pints .  The  data  for  FPPS  may 
be  changed  at  any  major  stage  at  which  DIFEQ1(2)  is  called,  FPPS  will 
be  active  only  if  there  is  data  for  it  and  only  if  INDFLT  is  input  non¬ 
zero. 

Example 

To  compute  a  *  f  (Mach)  the  function  f  is  defined  pointwise  by 
a  two  dimensional  table  (in  the  standard  manner  for  setting  up 
tables).  It  is  imperative  that  Mach  have  been  computed  before 
FPPS  ie  called  to  evaluate  ot  . 

When  using  FPPS,  it  is  Imperative  to  check  the  coding  to  be  sure  that 
the  independent  variable  of  the  "f"  function  has  actually  been  computed 
at  the  time  FPPt  3)  is  callsd;  if  such  is  not  the  case  then  it  ie 
sometimes  possible  to  permute  the  order  of  calculations  in  such  a 
manner  that  this  criteria  will  be  satisfied. 

Input  Data 

This  data  must  go  in  the  stage  data.  The  data  may  be  inserted  at  any 
stage  at  which  the  initial  transformation  is  executed. 

Example 

•SSEBSb 


FPFTV 

BCD 

2SIG7DbAMACR 

FPFDV 

BCD 

2BA77DbALPHD 

FTAB01 

4,-90., 180., -.1,190. 

FTAB02 

2,0. ,10. ,2. ,5. 

D1DFLT 

1 

FPPIV 

defines  the  n 

i —  (at  most  6)  of  the  respective  inde- 

pendent  variables  for  the  tables  FTAB01  through  FTAB06. 
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FPFDV  defines  the  naaes  of  the  respective  dependent  variables 
for  the  tables  VTAB01  through  FTAB06. 

FTABC1 

•  two  dimensional  tables  c  ^responding  to  the  definitions 

I  set  up  in  FPPIV  and  FPPCV. 

FTAB06 

INDPLT  f  0  turns  on  FTPS 
“  0  turns  off  FPPS 

Great  care  oust  be  exercised  in  bow  FPPS  is  used. 

Perna:  la : 

A  flow  chart  for  FPPS  is  presented.  FPPS2  is  Identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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1*9 •  ONETWO  -  Transformation  of  Selected  Vehicle  2  Variable  to 
Vehicle  1  COMMON 


Purpose: 

ONETWO  takes  variables  having  a  unique  name  in  vehicle  2's  COMMON 
and  transfers  the  variable  value  to  a  specified  location  in  vehicle 
l's  COMMON.  The  routine  is  used  for  the  inverse  TWOONE  transfor¬ 
mation  when  vehicle  l's  perturbation  equations  are  employed  to 
perturb  a  vehicle  2  function,  or  when  a  variational  problem  is 
terminated.  Additional  variable  transfoi  tuitions  may  be  introduced 
by  simply  adding  the  transformations  to  both  ONETWO  and  TWOONE. 


ONETWO 


RETURN 


50 .CTLITR  and  CTLITR2  -  Control  Dependent  Derivative  Calculation 


Purpose: 

CTLITR  and  CTLITR2  control  the  calculation  of  the  portion  of  the 
derivative  calculation  which  depends  on  the  instantaneous  control 
variable  values. 

Method: 

Angle-of-attack  and  sideslip  functions  including  the  (u,v,w)  matrix 
are  computed  directly.  Throttle  effects  are  computed  through  ANITR 
or  ANITR2.  Bank  angle  effects  are  computed  in  BA.ITR  or  BAITR2 . 

Remarks: 

A  flow  chart  for  CTLITR  is  provided.  CTLITR2  is  identical  except 
for  the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 


CTLITR 
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_  DEQACI  and  DEWACI2  -  Derivative  Calculation  after  Control  Definition 
Purpose: 

To  carry  out  secondary  derivative  calculations  following  computation 
of  the  control  dependent  functions  {e.g.,  y  and  a  computations). 

Remarks : 

A  flow  chart  for  DEQACI  is  presented.  DEQACI2  is  identical  except 
for  the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 


220 


•  Ml  If  INOADO-1 
■Ny  |f  I  NO  A  DO 'I 
•M*  If  IMOAfi  »•< 


52.  FPFG  and  FPPG2  -  Gamma  Command.  Flight  Plan  Progr*m™*->* 


Purpose: 

To  provide  the  capability  for  flying  a  specified  flight  path  angle 
(  y  )  time  history  by  confutation  of  the  angle  of  attaok. 

Method: 

The  change  in  angle  of  attack  is  confuted  to  correspond  to  the  second 
term  of  the  Taylor  expansion  of  a  (  y )  plus  a  small  correction  tern. 


w  +  C  «YC  -  v)  +  <YC  -  Y)) 

where 

C  =  m  V^/(T  cos  a  +  L/o) 

\  *  [W.)t  -  -  M  ]  /4t 

At  is  set  equal  to  1.  second  by  the  program. 

“i  is  either  an  initial  input  value  of  o?  the  value 

remaining  from  previous  confutation  at  the  entry  into  FFPG(3). 

®  is  then  limited  between  a  maximum  value  (ALIMG)  set  equal  to  24° 
by  the  program,  and  a  lower  limit  (ALIML)  set  equal  to  -4“  by  the 
program. 

Remarks : 

A  flow  chart  for  FPPG  is  presented.  FPPG2  is  identical  except  for 
the  use  of  vehicle  2  COMMON  blockB  and  auxiliary  subroutines. 
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DEQSIP  and  DEQSIP2  -  Derivative  Evaluation  Initial  Point 


To  provide  an  initial  print  heading  for  the  differential  equations 
of  motion  output. 

Remarks : 

A  flow  chart  for  DEQSPI  is  provided.  DEQSPI2  is  identical  except 
for  the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 


SUBROUTINE 

DEQSIP 


5l+.  DEQCOD  and  DEQCOD 2  -  Trajectory  Code  Print 


Purpose: 

To  provide  a  trajectory  history  code  print  for  the  selected  output 
variables . 

Remarks: 


A  flow  chart  for  DEQCOD  is  presented.  DEQC0D2  is  identical  except 
for  the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 


* 


SUBROUTINE  DEQCOD 
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History  Print 


Purpose : 

To  provide  a  history  of  selected  variable  values  along  a  trajectory. 
Remarks: 

A  flow  chart  for  DEQVAL  which  generates  the  first  vehicle  output 
values  is  presented.  DEQVAL2  which  provides  the  second  vehicle 
output  values  is  identical  except  for  the  use  of  vehicle  2  COMMON 
blocks  and  auxiliary  subroutines. 
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56.  DEQIV  and  DE^IV2  -  Integrated  Variable  Specification 
Purpose : 

To  define  active  integrated  variables. 

Remarks: 

A  flow  chart  for  DEQIV  is  presented.  DEQIV2  is  identical  except 
for  the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 


SUBROUTINE  DEQJV 
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and  DEQHT 


To  carry  out  specified  h-transformations  at  selected  stage  points 
Remarks: 

A  flow  chart  for  DEQHT  is  presented.  DEQHT2  is  identical,  except 
for  the  use  of  vehicle  2  COMMON  blocks. 
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SUSROUTINE  DEQHT 
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38.  ERROR  and  FRR0R2  -  General  Table  Er  or  Routine 

Purpose 

To  provide  a  method  of  indicating  the  table  which  may  possibly  contain 
an  error. 

Mfasd 

Given  the  subscript  of  the  cunre  in  error,  the  routine  will  search  the 
subscript  table  and  find  the  corresponding  BCD  word.  This  v;>rd  will  then  be 
printed  as: 

"TABLE  ERROR  AAAAAA" 


where  AAAAAA  is  the  BCD  name  of  table.  If  the  nr.ae  cannot  be  found  in  the 
directory 


"TABLE  ERROR 

. . .  Location  of  table  not  listed  in  directory. . . " 

is  printed  and  a  return  to  th-  calling  program  is  made.  In  either  ct.se  INDSTE 
is  set  to  zero. 

Usage 

Ritzy  is  mode  to  the  routine  with  the  following  statement: 

CALL  ERROR  (LOCZ) 

where  LOCZ  is  the  table  subscript. 

LINES 

AERCH 

Normal  FORTRAN  I/O  routines. 

; 

A  flow  chart  for  ERROR  is  provided.  ERROR?  is  identical  to 
ERROR  except  for  the  use  of  vehicle  2  COMMON  blocks  end  auxiliary 
subroutines . 
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iN  and  PTBEQN2  -  Driver  Rout ineB  for  Equations 


Purpose: 

To  duplicate  the  sequence  of  calls  to  subprograms  made  by  EXE  for 
entry  points  2  and  3. 

Usage: 


CALL  PTBEQN  (IENTRX) 

IENTKY  ■  2  make  calls  to  entry  points  2 

EENTHX  “  3  make  calls  to  entry  points  3 

PTBEQN  is  called  only  by  the  f'UBR  routine.  EENTHT  is  an  argument 
in  the  call  to  PSUBR  from  PARTS;  PSUBR  transmits  it  to  PTBEQN.  PTBEQN 
may  be  looked  upon  as  that  routine  which  drives  the  particular  function¬ 
al  calculation  necessary  for  computing  partial  derivatives  numerically. 
The  indicator  INDEQN  is  set  to  1  upon  entering  PTBEQN  and  is  set  to  C 
upon  leaving;  this  indicator  is  not  essential  to  any  of  the  logic  but 
is  designed  only  for  diagnostic  purposes. 

When  TENTH!  «  2,  PTBEQN  only  calls  EXTRAN  (3).  EXTRAN (3 )  takes  care 
of  evaluating  the  functional  calculation  for  the  initial  transformation 
of  major  stages  (either  initial  conditions  or  n-transformation). 

PTBEQN  controls  the  transformation  of  selected  vehicle  2  functions 
into  unique  vehicle  1  functions  for  use  in  two  vehicle  variational 
optimization  problems.  This  is  achieved  by  use  of  the  transfor¬ 
mation  subroutines  TWOONE  and  ONETWO.  The  selected  vehicle  2 
functions  are  perturbed  by  PTBEQN2  which  is  called  from  PTBEQN. 

Flow  charts  for  both  PTBEQN  and  PTBEQN 2  are  presented. 


PTBEQN 


232 


PTBEQN  2 
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50  TWOONE  -  Transformation  of  Selected  Vehicle  1  Variable  to  Vehicle  2 
COMMON 


Purpose: 

TWOONE  takes  variables  having  a  unique  name  in  vehicle  l's  COMMON  and 
transfers  the  variable  value  to  a  specified  location  in  vehicle  2'c 
COMMON.  The  routine  is  used  for  the  inverse  ONETWO  transformation 
when  vehicle  l's  perturbation  equations  are  employed  to  perturb  a 
vehicle  2  function.  Additional  variable  transformations  may  be  intro¬ 
duced  as  discussed  in  the  ONETWO  write-up. 
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61.  I  ZERO  and  IZER02  -  Packs  Non-Zero  Numbers 

Purpose 

Test  the  argument  for  non-zero  end  set  up  indicators  for  packing. 

Method 

The  argument  is  tested  for  zero  and  a  switch  i.  set  for  each  word.  The 
switch  is  on  for  zero  and  off  for  non-zero. 

Pease 

Entry  is  made  to  the  routine  with  the  following  statement: 

CALL  IZERO(IA) 

where 

IA  ■  The  number  to  be  packed. 

R-nu.rlf 

No  other  subroutines  are  called  from  this  routine. 
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62. 


PPLNLH  -  Main  Paper-Plot  Routine 
Purpose: 

To  control  scale  size,  construct  grids,  plot  points,  and 
title  each  paper  plot. 

Usage : 

Call  PPLNLN  (X,  Y,  NPTS,  XMAX,  XMIN,  YKAX,  YMIN,  NPLTS, 

TITLE,  IWORDS,  TITLEB,  NT) 

x  is  the  array  that  contains  the  values  of  the  independent 

variable  to  be  plotted 

y  is  the  array  that  contains  the  values  of  the  dependent 

variable  to  be  plotted 

NPTS  number  of  points  to  be  plotted 

XMAX  maximum  value  of  plot  grid  for  x  axis 

XMIN  minimum  value  of  plot  grid  for  x  axis 

YMAX  maxi mum  value  of  plot  grid  for  y  axis 

YMIN  minimum  value  of  plot  grid  for  y  axis 

NPLTS  number  of  curves  to  be  plotted  on  this  frame 

TITLE  title  to  be  printed  at  the  top  of  the  plot 

IWORDP  number  of  ten  character  words  in  TITLE 

TITLEB  title  to  be  printed  at  the  bottom  of  the  plot 

NT  number  of  ten  character  vorus  in  TITLEB 
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NCWA.R-  SlO O 
IcPw-lO 
IPLofs.  O 
CftUXMAL-YMfc) 
W-  YHAatYMW 


IPloUIPloT+I 
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63.  SENSOR  and  SENS0R2  -  Vehicle  Sensor  Routines 


Purpose: 

To  supply  each  vehicle  with  a  system  of  sensors  for  detection 
of  an  opponent.  Each  vehicle  may  employ  up  to  seven  inde¬ 
pendent  sensors. 

Usage: 

Given  the  opponent's  position  each  sensor  is  checked 
sequentially  to  see  whether  or  not  the  opponent  can  be 
observed.  In  the  present  program  an  opponent  is  observed 
when  the  target's  cone  angle  (in  body  axes)  is  less  than 
the  sensor  half  angles  and  the  target's  range  lies  between 
minimum  and  maximum  limits.  The  time  each  sensor 
observes  an  opponent  is  integrated  and  the  time  at  which 
a  sensor  loses  an  opponent  is  preserved. 

A  call  to  SENSOR  or  SENS0R2  ^.s  made  as  follows: 

CALL  SENSOR  (IENTRY)  or  CALL  SENS0E2  (IENTRY) 

IENTRY  is  tJ.a  standard  EXE  entry  point  indicator. 

A  flow  chart  for  SENSOR  is  provided.  SENS0R2  is  identical 
to  SENSOR  except  for  the  use  of  vehicle  2  COMMON  blocks. 
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VISION  and  VISI0N2  -  Pilot  Vision  Routines 
Purpose : 

To  supply  each  pilot  with  a  visual  detection  model.  Visual 
scans  are  made  at  specified  time  intervals. 

Usage: 

Given  the  opponent's  position  a  periodic  visual  check  is 
made  to  see  i f  the  opponent  lies  between  tabular  upper  and 
lower  elevation  limits  as  a  function  of  target  azimuth.  If 
the  opponent  lies  in  these  elevation  limits  and  is  in  visual 
range,  it  is  assumed  that  he  will  be  detected.  A  flag  is 
set  whenever  an  opponent  is  lost  from  sight  and  at  all  times 
the  last  two  visual  sightings  are  recorded  in  time, azimuth, 
elevation,  and  range  senses. 

A  call  to  VISION  or  VIST0N2  is  made  as  follows i 

CALL  VISION  (lENTttt)  or  CALL  VISI0N2  ( 1 ENTRY ) 

I  Eli' FRY  is  the  standard  EXE  entry  point,  indicator. 

A  flow  chart  for  VISION  is  presented.  VISI0N2  is  identical 
except  for  the  use  of  vehicle  2  COMMON  blocks . 
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PASSV1  and  PASSV2  -  Passive  Tactics  Routine 


65. 


Purpose: 

PASSV1  and  PASSV2  serve  to  interface  flight  plan  program  options  or  fixed 
control  history  flight  paths  with  the  combat  logic.  In  particular,  it 
con-verts  all  such  control  specifications  to  the  finite  control  rate 
option  at  the  analyst’s  request.  A  flow  chart  for  PASSV1  is  presented. 
PASSV2  is  identical  except  for  use  of  vehicle  2  COMMON  blocks. 
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66.  DEFENl  and  DEFEN2  -  Defensive  Tactics  Routine 


Purpose: 

To  select  each  vehicle's  defensive  tactic. 

Method: 

R0LE1  and  R0LE2  have  selected  each  vehicle's  role.  When  a  defensive 
role  is  selected,  DEFEN1  and  DEFEN2  define  a  specific  defensive  tactic 
for  vehicles  1  and  2,  respectively.  Defensive  tactics  may  he  selected 
in  random  or  ordered  manner.  An  override  to  another  specified  role 
is  also  possible  by  use  of  FIXEDR  or  FIXEDR2.  The  analyst  may  also 
specify  a  minimum  elapsed  time  between  tactic  changes. 

Remarks: 

A  flow  chart  for  DEFEN1  is  presented.  DEFEN2  i.3  identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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67.  EVADE!  and  EVADE2  -  Evasive  Tactics  Routine 


Purpose: 

To  select  each  vehicle's  evasive  tactic. 

Method : 

R0LE1  and  R0LE2  have  selected  each  vehicle's  role.  When  an  evasive 
role  is  requested,  EVADE1  and  EVADE2  define  a  specific  evasive  tactic 
for  vehicles  1  and  2.  Tactics  may  be  selected  in  random  or  ordered 
fashion.  An  override  to  another  specified  role  is  possible  by  use 
of  FIXEDR  or  FIXEDR2.  The  analyst  may  also  specify  a  minimum  elapsed 
time  between  tactic  changes. 

Remarks : 

A  flow  chart  for  EVADE1  is  presented.  EVADE2  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  routines. 
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66.  0FFEN1  and  GFFEN2  -  Offensive  Tactic  Routine 


Purpose: 

To  select  each  vehicle's  offensive  tactic. 

Method: 

ROJjEI  and  R0LE2  have  selected  each  vehicle's  role.  When  an  offensive 
role  is  requested,  0FFEN1  and  0FFEN2  define  a  specific  offensive  tactic 
for  vehicles  1  and  2,  respectively.  Offensive  tactics  may  be  selected 
in  random  or  ordered  manner.  An  override  to  another  specified  role  is 
also  possible  by  use  of  FIXEDR  or  FxXEDR2.  The  analyst  may  also  specify 
a  minimum  elapsed  time  between  tactic  changes. 

Remarks : 

A  flow  chart  for  0FFEN1  is  presented.  0FFEN2  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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69.  ATTAC1  and  ATTAC2  -  Attacking  Tactics  Routine 


Purpose : 

To  select  each  vehicle's  attaching  tactic. 
Method: 


R0LI.1  and  R0LE2  has  selected  each  vehicle's  role  When  an  attacking 
role  is  requested,  ATTAC1  and  ATTACH  define  a  specific  attacking 
tactic  for  vehicles  1  and  2.  Tactics  may  be  selected  in  random  or 
ordered  manner.  An  override  to  another  specified  role  .In  also  possible 
by  use  of  FIXEDR  and  FIXEDR2  The  analyst  may  also  specify  a  r Lninrum 
elapsed  time  between  tactic  changes. 

Remarks : 

A  flow  chart  for  ATTAC1  is  presented.  ATTAC2  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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70.  OAIiPBA  and  0ALPBA2  -  Subprogram  for  Instantaneous  Control  Vector  Iteration 


Purpose: 

To  define  instantaneous  angle-of-attack  and  bank-angle  on  the  basis  of 
local  optimization  and  constraint  criteria. 

Method: 

A  local  minimization  criteria,  <J>(t),  anC  local  constraints  criteria, 
ipi(t),  are  created  where 

<J>(t)  =  Ba)  and  ^(t)  «  ^(a,  BA) 

An  inner  loop  parameter  optimization  procedure,  CTLOPT,  is  used  to 
define  the  angle-of-attack  and  bank-angle  combination  which  satisfies 
the  resulting  local  (t  =  constant)  optimization  problem.  The  local  mini¬ 
mi  zf '.ion  criteria  involves  a  variety  of  ccmbat  guidance  laws.  Constraints 
include  a  minimum  speed  override  on  angle-of-attack,  which  reduces  the 
angle-of-attack  search  range  and  any  in-flight  inequality  constraint  de¬ 
fined  by  IFCS  which  in  directly  affected  by  the  control  vector  (lNDBNCi-=l) . 
Final  steering  and  force  vector  errors  are  also  computed  in  OALPBA  and 
0ALPBA2 . 

Remarks : 

A  flow  chart  for  OALPBA  is  presented.  0AIPBA2  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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71.  HTHO  .„nd  HTHA2  -  N-Dimensional  Table  Call_Routlne 


PUTPOM 

To  aet  op  the  NA  array  and  Z  location  of  tabled  with  dimension  from  3  to 
5  aa  required  by  the  calling  sequence  to  NDTLU  which  is 

CALL  NDTLU  (ND,NA,  X,  Z,  XA,  Zh\  12,  NEXTR), 

to  sake  the  call  to  NDTLU,  and  return  the  function  value  or  data  on  a  table 
read  error. 

Ueaae 

Linkage  to  the  subroutine  is  aade  via  the  statement 

CALL  HI  HO  (N,  LOCZ,  NX1,  NX2,  NX3,  NX4,  HARG,  X2ARG,  X3ARG, 

X4ARG,  A) 


where, 


N 

LOCZ 

FX1  to  X1ARG 

XIANG  to  X4ARG 
A 

Subroutines  Called 

NDTLU,  ERROR,  LINES 
Normal  FORTRAN  I/O  routines 

Remarks : 

A  flow  chart  for  HIHO  is  presented.  HIH02  Ib  Identical  except  for  the 
use  of  vehicle  2  COMMON  blocks. 


»  Dimension  of  table  look-up.  When  A  -  f(l)  N  »■  2. 

“  Location  of  the  first  value  in  the  table. 

*•  Location  of  number  of  points  in  the  XI  to  24  arrays 
of  independent  variable  values. 

-  Nans  of  XI  to  X4  argument  or  a  dummy  location  if  N  <  5. 

-  Location  of  the  depeident  variable. 
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72.  TKTI  -  Transformation  Matrix  Routine 


fBcagg. 


To  calculate  the  transfomation  matrix,  M  given  the  angles  of  transform¬ 
ation  Op  ©p  ^3  411(1  the  desired  axes  about  which  rotation  is  to  occur. 

mm 

*  -  fr  \.i 

i*l 

when)  A^  is  a  matrix  determined  from  angle  ©p  If  ©^  =  0,  =  I  (identity 

matrix) 

is  definsd  ar  follows: 


A.  * 

l 


Ai~ 


^i 


“S0. 


X  axis  rotation  matrix 


when  IT  =  1 


0, 


1 

0 


=  I  axis  rotation  matrix 


when  =  2 


A. 

i 


co. 

X 

"0. 

1 

r 

ve, 

=  Z  axis  rotation  matrix 


0  C  1  j  when  =  ) 

Usage 

The  transformation  matrix  routine  is  entered  by  tie  statement: 

CALL  TKTX  (Op  K-; ,  ©£,  ^2'  ®3*  V)  where: 

1.  Op  ©2»  the  transformation  angles 

2.  Xp  Kg,  K,,  as  indicated  above,  determine  the  axis  to  which  the 
corresponding  ©^  refers. 
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3.  T  is  a  1-dimensional  array  containing  past  values  of  the  following: 

Sin®1,  CX)S0^,©2»  SinW^,  COSOg,  0^>  SinO^,  CQSO^,  (in  that  order) 

4.  M  is  the  3x3  array  where  the  resultant  transformation  matrix  is  to 
be  stored. 


V  contains  the  last  counted  values  of  each  0^,  Sin&,. .  If  the  current  0^  presented 
by  the  call  statement  is  such  that 


9 


new  i 


-  o 


old  i 


E,  E 


l.E-6 


then  SinO . ,  COSO,  are  not  re confuted.  If  all  0^'s  are  such  that  |  0  new  ^ 
0  0id  1 1  s  E,  then  M  is  not  recounted  at  all.  Anv  re  confuted  values  are 
stored  in  the  V  array. 


To  avoid  possible  errors  in  the  E-test,  V(l),  V(4),  and  V(7)  should  be 
initialized  to  angles  which  would  never  be  encountered  in  the  user's  program 
before  the  first  entry  into  TMTX. 

Note:  For  any  given  transformation,  it  is  assumed  that  the  order  of  rotation 

about  the  3  axes  will  not  change. 

When  9^  =  0,  K.  Is  ignored. 
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73.  TEMPOS  -  A  3  x  3  Matrix  Transpose  Routine 


Purpose 

To  transpose  *3x3  matrix  A  to  obtain  the  3x3  matrix  A*. 
Method 

The  resulting  transposed  matrix  is  stored  in  a  separate  array, 
of  A  must  be  stored  in  the  normal  FORTRAN  sense  (i.e.,  columnwise). 

Osage 

The  transpose  of  a  matrix  A  is  obtained  by  the  statement, 

CALL  TRNFOS  (A,B) 

where, 

A  “  The  variable  name  of  the  3x3  matrix  A1. 

B  *  The  variable  name  of  the  3x3  matrix  A1. 

Rgsy*s. 

This  routine  calls  ro  other  routines. 

TRNPOS 

I 

DO  1  i  .  1  #  \ 

DO  1  j  «  1,3 

I 

k 

BiJ  =  Aj,i 

T 

RETURN 
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All  elements 


1 


Purpose 

To  post-multiply  a  3  x  3  matrix  by  a  3  x  1  matrix. 

The  result  of  [a^  [.fi]  -  fcj  is  coqautei  using  single  precision  floating 
point  arithmetic.  All  elements  must  be  stored  in  the  normal  FORTRAN  sense 
(i.e.,  columnwise). 

Usage 

The  matrix  multiplication  is  obtained  by  the  statement: 

CALL  MULT31  (A;  B,  C) 


where, 

A  =  Array  name  of  the  3x3  matrix  [a^ 

B  “  Array  name  of  the  3x1  matrix  £b] 

C  =  Array  name  of  the  resulting  3x1  matrix  [c] 
Remarks 

This  routine  calls  no  other  routine. 


MULT31 


DO  1  i  =  1,3 
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RETURN 


75.  HETS  and  HETS2  -  Heating  Computations 
Purpose: 

To  monitor  a  characteristic  structural  temperatme  and/or  aerodynamic 
heating  rate. 

Method: 


This  subprogram  has  all  the  standard  entry  points  of  EXE. 


INDHET  *  0 
INDHET  -  1 
INDHET  *  2 
INDHET  =  3 

DLTSF  =  0: 


No  computations  made. 

Wedge  skin  temperature  computed. 

Hemispherical  nose  temperature  computed. 

Both  wedge  skin  and  hemispherical  nose  temperatures 
computed. 

Equilibrium  temperature  computed  for  wedge  skin. 
Transient  temperature  computed  for  hemispherical  nose. 


DLTSF  /  0: 


Transient  temperatures  computed  for  both  wedge  skin 
and  hemispherical  nosu. 


Remarks : 

The  following 

QDOTS 

TS77R1 

TS77R 

QDOTE 

TSTGR1 

TSTGR 

RN2 

RNCR 


quantities  are  computed  at  HETS(3): 

Convective  heating  rate  of  the  wedge  skin. 

Rate  of  change  of  wedge  skin  temperature  (set  equal 
to  sero  if  DLTSF  =*  0). 

Wedge  skin  temperature. 

Convective  heating  rate  of  the  hemispherical  nose. 
Rate  of  change  of  hemispherical  nose  temperature. 
Hemispherical  nose  temperature. 

Reynolds  number  at  edge  of  boundary  layer. 

Critical  Reynold's  number  at  edge  of  boundary  layer. 


A  flow  chart  for  HETC  is  presented.  HETS?.  is  identical  to  HETS  except 
for  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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76.  TFFS  and  TFFS2  -  Single  Engine  Thrust  °nd  Fuel  Plow 

Purpose: 

The  single  engine  tl trust  and  fuel  flov  program  provides  the  means  of 
introducing  the  engine  thrust  and  propellant  flow  rate  data.  It, 
corrects  the  thrust  for  atmospheric  effects  and  resolves  the  thrust 
vector  into  its  components . 

Usage: 

Linkage  to  TFFS  is  accomplished  via  the  general  statement: 

CALL  TFFS  (IENTRI) 

where  IENTR?  is  a  fiooed  point  variable. 

IENTR?  -  1 

This  performs  the  pre-data  initialisation.  At  this  entry  the  subscripts 
for  all  tables  are  computed  and  the  following  data  is  initialised. 

INDTFF  *  0  =  thrust  option  indicator 

N  =  1.  *  throttle  setting 

BURK'RS  =  2.  "  number  of  identical  engines 

In  addition,  the  data  initialisation  of  TFFM  when  its  TENTH?  is  1  is 
performed  under  this  entry. 

IENTR?  ~  2 

This  performs  the  post -data  initialisation.  At  this  entry  the 
following  data  is  initialised: 


m 

■  0 

=  rate  of  change  of  vehicle  muss 

% 

as  m 

=  mass  of  vehicle 

vif 

0 

=  fuel  used 

Tx 

2,  Q 

*  thrust  component  along  x-axis 

Ty 

=  0 

*  thrust  component  along  y-axis 

T* 

a  0 

*  thrust  component  along  s-axis 

T 

=  0 

™  thrust  after  atmosphe.  ‘ c  effects  correction 

T 

VAC 

-  0 

=  vacuum  thrust  of  engine 

• 

JUf 

*  0 

*  fuel  flow  rate 

fuel  flow  rate 
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IHPtFff  «  3 


At  thlf.  entry  the  thrust  components  and  fuel  flow  are  computed.  If 
INDTFF  *  0  no  coaqwtations  are  performed.  For  values  of  INDTFF  of  1 
through  5  the  following  computations  are  performed : 

\  0  I 

T  -  MAX  j  TyAC  -PA,  |  =  total  corrected  thrust 


■k  Y\ 


total  rate  of  change  of  rehiclc  mass 


TyAC  and  are  input  as  tabular  data.  The  functional  relationships 
for  the  various  options  are  aa  follows: 


Value  of 
XHDTFF 


Option 

Single  Engine  Noncont rolled 
Thrust 


Functional 

Relationship 


*t  *  f<T*) 


"VAC 


f(r») 


Single  Engine  Controlled 
Thrust 


at  “  X(H)^ 
T7AC  = 


Single  Engine  Air  Breather 


\  -f(N,h,a,%) 
tvac  “  f  a »%) 


Fractional  or  Multiple 
Identical  Engine 


^VAC  “ 


Simplified  Single  Engine 


3U  *  f  (N,h) 

4c  - 


NOTES: 


While  it  is  possible  to  change  from  the  single  engine  option  (TFFS) 
in  a  given  stage  to  the  sultiengine  option  (TFFK)  in  a  later  stage, 
the  opposite  is  cot  possible. 
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PRINT’ 


X-C-WV. 


77.  SACS  and  SACS2  -  Aerodynamic  Routines 
Purpose: 

To  compute  the  aerodynamic  forces,  side  force  (SIEEP),  drag  force 
(DRAGP)  and  lift  force  (ALIFTP).  SACS  is  used  for  vehicle  1;  SACS2, 
for  vehicle  2. 

Usage: 

Linkage  is  made  via  the  general  statement: 

,  sacs  darntr) 

where  IKNTH5T  is  a  fixed  point  number. 
lENTFCr  =  1 

At  this  entry  curve  read  subscripts  are  found  by  calling  subroutine 
TSRCH  and  the  following  variables  are  initialized 


INDAER 

* 

0 

INDBAD 

am 

0 

L 

ALIFTP 

= 

0 

D 

DRAGP 

= 

0 

T 

EIDEP 

= 

0 

°D 

CEMNU 

= 

0 

CI 

CTMNU 

w 

0 

cL 

CLMNU 

= 

0 

haero 

max 

AMAXH 

* 

ia6 

AHAXA 

= 

300000. 

AjlNCD 

« 

1. 

CPAK1 

0 

CPAK2 

- 

0 

INDA01 

= 

0 

INDA02 

0 

0 


INDA03 

INBA04 


0 
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INDA07  -  0 

INDA10  *  0 

INDA11  -  0 

INDA12  =  0 

DTOA13  -  0 

INDA14  =  0 

INDA17  =*  0 

INDA24  *  0 

INDA25  =  0 

INDA26  =  0 

INDA27  -  0 

INDA28  =  0 

INDA31  =  0 

INDA80  =  0 

INDA90  =  0 

INDA91  =  0 

INDA92  =  0 

IENTHT  =  2 

Checks  to  see  if  INDAER  is  less  than  0  and  if  so  sets  INDA®  to  0. 

IENTHT  -  3 

If  INDAER  is  0  no  computation .  If  INDAER  is  nonzero  a  check  is  made  on 
altitude  (HGC7F).  If  altitude  is  greater  than  AISAXH  then  the  following 
variables  are  set 

ALIFTP  =  0 

DRAGP  =  0 

SIDEP  =  0 
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If  altitude  is  less  than  AMAXH  a  test  is  made  on  t  he  data  input  value 
(AMAJCA) .  If  altitude  (HGC7F)  is  greater  than  AMAXA  then  the  following 
variables  are  set  before  A LI FTP ,  DRAGP  arvi  SIDEP  are  computed. 

CA  =  CDMNU  CYA  =  CYHNU  CL  =  CLMNU 

If  the  altitude  is  less  than  the  input  value  AMAXA  the  following  variables 
are  set. 

CA  =  0  CYA  =  0  CN  =  0 

at  this  tins  a  test  is  made  on  the  INDAER  for  the  option  chosen. 

INDAER  ^  1 

If  INDA90  is  0  then  CN  is  unchanged; 

If  INDA90  =  1 

CN  =  f  (ALPHD,AMACH). 

If  INDA90  =  2 

CN  -  f  (ALPHD,AKACH,iIGC7F) 

If  INDA91  is  0  then  CA  is  unchanged,  if  not 
CA  -  f  (|CS|, AMACH). 

CIA  is  set  to  0. 

If  INBA01  is  0  then  DELCA  is  set  to  0,  if  INDA01  is  nonzero  then 
DELCA  =  f  (AHACH). 

CA  *  f  (CA  +  DELCA). 

If  INDA02  is  0  then  CPAKL  is  unchanged,  if  INDA02  is  nonzero  then 
CPAJCL  =  f  (AMACH). 

If  INDA03  is  0  CPAK2  is  unchanged,  if  IHDA03  is  nonzero  then 
CPAS'!  =  f  (AMACH). 

Cockpit  and  pitch  angle  are  computed  a*  auxiliary  computations  as  follows: 
CPA7D  *  Cockpit  a  -  CPAKL  .  a  +  CPAK2 

PA77D  -  Pitch  angle  =  T  +  a  cos  BA  -  AINCD 

After  this  computation  ALIFTP,  DRAGP  and  SIDEP  are  computed. 
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INDAER  -  2 

RN 

VA77F/ANUA7F  where 

RN 

Reynolds  Number 

VA77F 

Velocity,  VA 

ANUA7F 

Kinematic  Viscosity,  v 

If  INDA80  is  OjCAq* 

CAVAH  "  0,  if  INDA80  is  nonzero  then 

0*0 

CAVAH  =  f(RN,  AMACH) 

If  any  of  the  following  indicators  are  nonzero,  then  the  respective 
coefficients  are  computed  as  a  function  of  Mach  number. 


INDA01 

CAALPH 

CA0 

=* 

f(AMACH) 

INDA02 

CAALSQ 

ss 

CA«2 

= 

f (AMACH) 

INDA03 

CABETA 

Mp 

f (AMACH) 

INDA04 

CABTSQ 

= 

CAp2 

- 

f(AMACH) 

INDA07 

CAALBT 

= 

Chap 

- 

f (AMACH 

INDAIO 

CN1ZER 

CN0 

* 

f  (AMACH) 

INDA11 

CN1ALP 

= 

CNa 

- 

f (AMACH) 

INDA12 

CN1AGQ 

s 

CNa2 

55 

f (AMACH) 

INDA13 

CN1BET 

= 

CSp 

= 

f (AMACH) 

INDA14 

CN1BSQ 

= 

cap2 

* 

f (AMACH) 

INDA17 

CN1ALB 

- 

CN„p 

SS 

f (AMACH) 

INDA24 

CYZERD 

sx 

% 

m 

f (AMACH) 

INDA25 

CTALPfl 

= 

CYa 

a 

f (AMACH) 

INDA26 

CYALSQ 

- 

CYa2 

- 

f (AMACH) 

INDA27 

CYBETA 

= 

CJp 

Si 

f  (AMACH) 

INDA28 

GYBTSQ 

m 

CYg  2 

m 

f (AMACH) 

INDA31 

CYALBT 

= 

CTa0 

m 

f  (AMACH) 
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Prom  these  coefficients  CA,  CN  and  are  computed  as: 

CA  -  |aJCAa  +CA0+a2CAa2+  |  <3  \  CA^  +  fl^A  0  2  +  CAa^« 

CN  -  a  CNa  +  %  +  a  |a(cNa  2  +  |/3  |  CN^  +p2WpZ  +(/3|a 
CTA  «  |  a  j  CYa  +  CI0  +  C^2a2  +  0  0  ^2  +\a\p  CTn^ 

After  this  computation  ALIFTP,  PRAGP  and  SIDEP  are  computed. 

INPAER  -  3 

If  INDA90,  INDA91  and  INDA92  are  0,  CA,  CN  and  CYA  respectively  are 
unchanged  but  if  either  indicator  is  nonzero,  the  coefficients  are  computed 


as  follows: 

If  INPA90 

f 

0 

CA 

•  f(ALPHD, BETAD, AMACH) 

INPA91 

t 

0 

CN 

*  f ( ALFHP , BETAD , AMACH ) 

INDA92 

+ 

0 

CYA 

-  f(ALFHD,  BETAD,  AMACH) 

The  routine  then  'ueqputes  lift,  drag  and  side  force. 

INPAER  «  U 

If  INPA90,  DJPA91  and  INPA92  are  0,  then  CA,  CN  and  CYA  are  unchanged.  If 
any  of  the  indicators  are  nonzero,  the  coefficients  are  computed  as 
follows : 


INDA90 

f 

0 

CA 

-  f(AMACH,ALPHD) 

INDA91 

0 

CN 

«  f(AMACK,ALPHD) 

INDA92 

+ 

0 

CYA 

-  f(ALPHD, BETAD, AMACH) 

With  these  coefficients  lift,  drag  and  sideslip  are  computed. 

INPAER  -»  5 

If  any  of  the  indicators  listed  are  set  to  0  the  respective  coefficient  is 
unchanged.  If  any  indicators  are  nonzero  the  coefficients  are  computed 
as  follows: 


If  INPA10 

f 

0 

CAHIN  - 

f  (AMACH) 

INPA11 

7* 

0 

ELPRIM  - 

f(AKACH) 

INPA12 

i 

0 

ZK 

f  (AMACH) 

INDA13 

i 

0 

CLZ 

f(AMACH) 
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INDA80 

¥ 

0  CN  f(ALPHB,AMACH) 

INDA01 

¥ 

0  DELCA  =  f(AMACH) 

INDA02 

¥ 

0  CPAK1  «  f(AHACH) 

INDA03 

¥ 

0  CPAK2  «  f(AMACK) 

CA  =  CAMIN 

+  ELPRIM  (CN-CLZ)2  +  ZK(CN-CLZ)6  +  DELCA 

CYA  =  0 

Cockpit  alpha  and  pitch  angle  are  computed  as  auxiliary  computation. 

CPA7D 

= 

Cockpit  or  =  CPAKl0'+CPAK2 

PA77D 

= 

Pitch  angle  =  y  +  rt  cos  BA~AINCD 

with  the  above 

computation  lift,  drag  and  sideslip  are  computed. 

INDAER  ■  6 

If  INDA90  and  INDA91  are  0,  CA  and  CN  are  unchanged.  If  INDA90  and/or 

INDA91  are  not 

zero  the 

coefficients  are  computed  as  follows: 

A 

= 

(a2  +  «2)^2 

INDA90 

¥ 

0  CA  f(A.AMACH,HGC7F) 

INDA91 

¥ 

0  CN  f(A,AMACH,HGC7F) 

CN 

= 

CN  H 

O' 

INDAP,,  rl 

If  INDA80  and/or  INDA10 

is  zero  then  CA  and  CN  are  unchanged. 

If  INDA80  i  0  then 

CA 

= 

f(HGC7F,ALPHD) 

If  INDA10  i  0, 

then 

CN 

= 

f(ALPHD) 

LIFT.  DRAG.  HIDE  FORCE 

If  BIDBAD  is  i  0,  the  following  computations  are  made. 

CD  =  CA  CY  -  CYA  CL  «  CN 


If  INBAD  ■  0,  the  following  computations  are  made. 


-  CD 

- 

- 1 

>■ 

_ 1 

Cl 

uvw 

CYA 

-CL 

-  m 

-CN 
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With  these  coefficients  lift,  drag  and  side  force  are  computed  follows: 


LIFT 

DRAG 

SIDE  FORCE  - 

q  ■ 


ALIFTP 

DRAGP 

SIDEP 


q  S(  €XCL+  «2) 
q  3(  C3CD+  «4) 
q  S(  <5CY+  «6) 


dynamic  pressure 


el»  c3»  4 4>€5»  are  input  error  constants 

S  =  reference  area. 

ENTRY  -  4 


Not  used. 


ENTRY  -  5 

A  test  is  made  on  INDAER  if  0,  no  computation.  If  INDAER  is  equal  to  2 
the  following  codes  are  printed. 

CAVAH  CL  CD  C7  L7D 

If  INDAER  *  1,  the  following  codes  are  printed 

CL  CD  CY  L7D  PA77D  CPA7D 

If  INDAER  “  5,  the  following  codes  are  printed 

Cl.  CD  CY  L7D  PA77D  CPA7D 

For  any  other  value  of  INDAER  i  0,  the  following  codes  are  printed 

CL  CD  CY  L7D 

ENTRY  -  6 


With  this  entry  the  corresponding  values  to  the  code  in  entry  5  are 


printed. 

CL 

m 

Lift  force  coefficient 

CD 

m 

Drag  force  coefficient 

Cl 

m 

Aerodynamic  aide  force  coefficient 

LTD 

m 

This  will  be  0  if  CD  ia  0,  if  not  L7D  -  CL/CD 

PA77D 

m 

7  +  cx  co«A  -ATXD 

CPA7D 

m 

CPAKl'Or  +  CPA1C2 
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78,  UTS  aad  LATS2  -  C-eodetlc-Geccentric  Conversion 

Purpose : 

To  compute  the  geocentric  latitude  in  terms  of  the  geodetic  latitude 
and  vice  versa.  MTS  is  used  for  vehicle  1;  LATS2,  for  vehicle  2. 

Usage: 

CALL  UTS  (IENTRI,  PHIC,  PHIG,  IMP) 

lENTHf  *  1  compute  geocentric  latitude  in  terms  of  geodetic 
latitude 

■  2  compute  geodetic  latitude  in  terms  of  geocentric 
latitude 


PHIC 

PHIG 

TOP 


the  geocentric  latitude  (degrees) 
the  geodetic  latitude  (degrees) 

an  array  of  dimension  >  7  for  temporary  calculations 


The  COMMON  variables  HGC7F,  RP77F,  RE77F,  R777F  are  used  also. 
Method: 


IENTRY  *  Is 


h»  Rpj  V  <f>g  given 


(Rp  cos#  )  (F^sin<f)  ) 


=2~ 


<t>c  "  tar. 


-1 


R  $  1  sin  4>  t  h  sin  <f>  g 
R (f)  1  cos  (f>  +  h  cos  </>  g  J 


IENTEff  •  2: 


u0-i 


\  r  r_2  _ 


✓  R  \  ■  R-r  -  R  *  r  U  , 

Un  \h)  +  [RE  +  rP  _  _^C0S^c  +"(un_; 


,]_sin<t>c^ 


n  “  1> • « , 3 


Ux 


U  - 

*  U-,  +  U*  -  2UC 


4>q  m  tan~^ 


^  U*tan  *  c 


see 


i  At  S 


t  mtf _ 

!  V«  WO-SHUPHlO 


[7k  P<  Ij*  U>S  I  PM  «  »« 

- i 

[~n,TO; 

TKPUl  "SINITKPOM  i 

T” 


WiaPM  .cosItkpW) 


■y  Mp'Al  »WtTyf*wnTr/«QWT(TMy<<))  | 


I 


TK«U  ,YUP(*I*TIIP»««CW»  i 

-nr _ 


[tkpW  >tkp«)*t»p<*)*-*,oc1,*t,,p<ij 


1 


|y MIC  »  «1AHinrl»*.H,TKy<«»  »  p«6 _ : 


G 


D 


-■(co~TO»«»«l>t»)l[WTI>^ - - 


|tmp(i)  *  1  i 


TUI*;*)  -  SlNf 

PMIC  ***0) 

- - ! 

1 

Itmp(i)  »  cosCphic  )  j 

- - - - - - - 1 

± 


»&>21M  I  >2.0 

_zrl 


[vKP(l  )  »RP7?Frtlt77F«TKPnl»T«Pl'-f>  / 
|sQ»TfrMpW»»»<-^MP» -1)  ♦TWP<»))»>»)_ 


1 _  _ 1 

j  CONTINUE 

i 

Upm.tlKPU'PTIPPM) 

- T_  , 

TMPWlTMWJI-TKrf*)  -  »  BTMPOD) 
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79.  ATMS  and  ATM32  -  Atmosphere  Selector 


Purpose: 

To  enable  the  user  to  select  which  atmosphere  (1959  or  the  1962  atmo¬ 
sphere)  that  will  be  used  by  the  program. 

Usage: 

CAUL  ATMS  (HGC7F) 

HGC7F  =  The  initial  altitude  that  will  be  used  by  A1MS5?  or  ATMS62. 
INDATM  -  2  selection  of  the  1962  atmosphere. 

INDATM  ^  2  selection  of  the  1959  atmosphere. 

Remarks 


ATMS59  or  ATMS62  is  called  only  by  DIFEQ1.  A  flow  chart  for  ATMS  is 
presented.  ATMS2  is  identical  except  for  the  use  of  vehicle  2 
COMMON  blocks  and  subroutines. 


ATMS 


ATMS 5 9 (HGC7F) 

_ J 

ATMS  6 

2  (HGC7F) 

RETURN 
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8G.  GVSP  and  GVSP2  -  Gravitational  Routine 


Purpose 

To  co^rate  the  components  of  gravitational  acceleration  within  a  local 
geocentric  coordinate  system. 

Usage 

CALL  GVSP 

The  equations  used  were  adapted  from  the  gravity  potential  equation.  The 
number  of  spherical  harmonics  included  in  the  captation  is  determined  by 
input ing  an  integral  value  from  0  to  4  for  DfTXSVT.  The  nominal  value  for 
INDGVT  is  4- 

The  equations  pertain  to  the  planet  Earth;  however)  it  is  possible  to  use 
these  same  equations  for  any  other  planet.  For  this  reason,  the  values  of  the 


coefficients  are  *r.v^*amMd  as  an  input  to  the  program  so  that  the  applicable 
coefficient's  may  be  inserted  for  the  planet  under  consideration.  The  following 
give  the  necessary  planet  change  as  well  as  the  nominal  values  for  the  planet 
F»”th. 

HE77F 

-h 

=  20926428.  ft. 

=  equatorial  radius 

RP77F 

li 

-  20855965.  ft. 

*=  polar  indius 

AMU 

=  U 

*  1.407698  x  10^  ft?/sec^  =  gravity  constant 

AXGRAY 

™  K 

=  6.37  r  10”6 

=  3rd  spherical  harmonic 

HG 

=  H 

=  6.04  x  10"6 

=  2nd  spherical  harmonic 

AJG 

*  J 

=  1.62341  x  10~3 

-  1st  spherical  harmonic 

Remarks 

* 

A  flow  chart  foi  GVSP  is  presented.  GVSP2  is  identical  except  for 
the  use  of  vehicle  2  COMMON  blocks. 


6VSP 


2  92 


8l.  ANITR  and.  ANITR2  -  Throttle  Dependent  Derivative  and  Thrust  Vector 


Calculation 


ANITR  and  AKITR2  compute  that  portion  of  the  derivative  calculation 
which  directly  depends  on  the  throttle  setting  and  thrust  angles. 

Method : 

Propulsion  system  effects  sire  computed  from  TFFS  and  TFFS2.  A  thrust 
vector  transformation  accounts  for  the  possibility  of  thrust  vector 
control.  Load  factors  are  optionally  computed.  Heating  and  aerody¬ 
namic  routines  HETS,  HETS2,  fciACS,  and  SACS2  are  called  from  ANITR  and 
ANITR2  in  anticipation  of  subsequent  requirements  to  account  for 
propulsion  system  interaction  on  aerodynamics  and  heating. 

Remarks : 

A  flow  chart  for  ANITR  is  provided.  ANITR2  is  identical  except  for 
the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 

ANITR 
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82.  BAITR  and  BAITR2  -  Bank  Angle  Dependent  Derivative  Calculation 


Purpose: 

To  carry  out  that  portion  of  the  derivative  calculation  which  is 
directly  dependent  on  the  hank  angle. 

Method : 

Computes  the  (r,s,t)  matrix  through  TMTX  or  TMTX2  then  computes 
total  force  components  in  the  rotating  earth-centered  coordinate 
system,  (Xg,  Yg,  Zg) 

Remarks : 

A  flow  chart  for  BAITR  is  provided.  BAITR2  is  identical  except 
for  the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 


BAITR 
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83.ASRCH  and  ASRCH2  -  Directory  Search  Rout ires  for  BCD  Characters 


PllTDOBet 

To  provide  a  BCD  word  look  up  from  a  subscript . 

Method: 

Given  a  subscript  the  routine  will  search  the  directory  for  the  BCD  word 
corresponding  to  that  subscript.  If  the  subscripts  do  not  cospare  the 
BCD  name  is  set  to  blank  and  return  to  the  Calling  Program  is  made. 

Usage: 

Qitry  is  made  to  the  routine  with  the  following  statement: 

CALL  ASRCH  (LOCl.STMl) 
where , 

LOCI  =  subscript  being  searched. 

SIM1  =  The  variable  name  into  waich  the  routine  is  to  store  the 
corresponding  BCD  name. 

No  other  routines  are  called  from  this  routine. 


Remarks: 


A  flow  chart  for  ASRCK  is  presented.  ASRCH2  is  identical  except 
for  use  of  vehicle  2  COMMON  blocks. 
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84.  GRIDXY  -  Paper  Plot  Grid  Routine 


Purpose : 

Tc  set  up  the  grid  for  paper  plots 
Usage : 

Call  GRIDXY  (PLOT,  XMIN,  XMAX,  YMIN,  YMAX,  DX,  DY) 

Where 

PLOT  is  au  array  into  which  the  plot  characters  and 

grid  characters  are  placed  to  produce  the  finished 
plot.  The  finished  plot  will  contain  51  line?  of 
102  characters  per  line. 

XMIN  minimum  y  value  for  the  grid 

XMAX  maximum  x  value  for  the  grid 

YMIN  minimum  y  value  for  the  grid 

YMAX  maximum  y  value  for  the  grid 

DX  number  of  divisions  on  x  axi s 

DY  number  of  divisions  on  y  axis 
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GCitwr 
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PLCFTS  -  Paper  F'lo;  Point  Placing  Program 
Purpose: 

To  place  plotted  points  on  the  grid  formed  by  GRIDXY. 

Usage: 

Call  PLCFTS  (PLOT,  X,  Y,  NPTS,  IPATH,  IPLOT,  NFRAME,  IFLAT, 
XMIN,  YMAX,  XP,  YP) 


Where 

PLOT  is  an  array  into  which  the  pic  -  characters  and  grid 
characters  are  placed  to  produce  the  finished  plot. 
The  finished  plot  will  contain  51  lines  of  102 
characters  per  line. 

X  is  the  array  that  contains  the  values  of  the  inde¬ 

pendent  variable  to  be  plotted 

Y  is  the  array  that  contains  the  values  of  the 

dependent  variable  to  be  plotted 

NPTS  numb?:  -  of  points  to  be  plotted 

IPATH  not  used 

IPLOT  subscript  used  to  select  plot  symbol 

NFRAME  frame  number  to  be  printed  at  the  bottom  of  the  plot 

IFLAG  flag  set  equals  1  if  points  have  fallen  off  the 
plotting  area 

XMIN  minimal,  x  value 

XMAX  maximum  y  value 

X?  a  plut  increment 

YP  y  plot  increment 


86.  IPICK  -  Random  Tactic  Selector 
Purpose : 

Subroutine  IPICK  nominally  fills  both  vehicle  1  and  vehicle 
2  role  selection  tables  vlth  random  arrays  tactics. 

Usage : 

CALL  IPICK(N) 

vhere  N  is  the  number  of  random  tactics  to  be  selected. 


ipjc  k  r<v) 


87.  DEFENII  and  DEFEN 21  -  First  Defensive  Tactic 


To  steer  each  vehicle  along  a  path  giving  a  maximum  rate  of  turn. 

The  tactic  is  a  hard  turn  in  the  vertical  plane. 

Remarks ; 

A  flow  chart  for  DEFENII  is  presented;  DEFEN12  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks. 


DEFEN12  and  DEFEN22  -  Second  Defensive  Tactic 
Purpose : 

DEFEN12.  and  DEFEN22  are  ENTRY  points  in  DEFENII  and  DEFEN22,  respec¬ 
tively.  The  tactic  is  a  hard  turn  into  the  opponent  at  an  altitude 
dependent,  bank-angle.  A  flow  chart  for  DEFEN12  is  presented.  DEFEN22  is 
identical  except  for  use  of  vehicle  2  COMMON  blocks. 


DEFEN13  and  DEFEN23  -  Third  Defensive  Tactic 
Purpose : 

DEFEN13  and  DEFEN23  are  ENTRY  points  in  DEFENII  and  DEFEN21,  respectively. 
The  tactic  restates  the  target's  line-of-sight  vector  at  a  maximum 
possible  rate.  Local  angle-of-attack  and  bank-angle  perturbations 
determine  control  values  which  maximize  the  vector  product  magnitude, 


where  I't  is  the  total  force  vector,  and  LOSt  is  the  target's  line-of- 
sight  vector.  A  flow  chart  for  DEFEN13  is  presented.  DEFEN23  is 
identical  except  for  the  use  of  vehicle  2  COMMON  blocks  and  auxiliary 
routines. 


DEFENIi  and  DEFEN24  -  Fourth  Defensive  Tactic 
Purpose: 

DEF'ENlU  and  DEFEN 2*+  are  rJTRY  points  in  DEFENII  and  DEFEN21 ,  respectively. 
The  tactic  rotates  the  target's  lead-pursuit  vector  at  a  maximum  rate. 
Local  angle-of-attack  and  hank-angle  perturbations  determine  control 
values  which  maximize  the  vector  product  magnitude 

iHj,  *  ft| 

where  Ft  is  the  total  force  vector,  and  LAj  ib  the  target's  lead-pursuit 
vector.  A  flow  chart  for  DEFEN14  is  presented.  DEFEN24  is  identical 
except  for  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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DEFEN15  and  DEFEN25  -  Fifth  Defensive  Tactic 
Purpose: 

DEFEN15  and  DEFEN25  are  ENTRY  points  in  DEFEN11  and  DEFEN21,  respectively. 
The  tactic  rotates  a  proportional  vector,  Vr,  which  is  a  linear  combi¬ 
nation  of  target' 8  lead-pursuit  angle  and  target's  line-of-sight  vectors 
at  a  maximum  possible  rate.  Local  angle-of-attack  and  bank-angle  pertur¬ 
bations  determine  control  values  which  maximize  the  vector  produce 
ma,,v  i-V-de 


Here,  F<p  is  the  total  force,  and  Vr  is  the  target's  reference  vector. 


Remarks: 


A  flow  chart  for  DEFEN15  is  presented.  DEFEN25  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 


DEFEN16  and  DEFEN26  -  Sixth  Defensive  Tactic 


DEFEN16  and  DEFEN26  are  ENTRY  points  in  DEFEN11  and  DEFEN21,  respectively. 
The  tactic  performs  a  "Split-S"  under  an  opponent.  The  initial  maneuver 
through  the  vertical  is  a  simple  Split-S.  Once  through  the  vertical  has 
been  accomplished,  the  reference  vehicle  maintains  the  Split-S  but  banks 
underneath  the  opponent. 

Remarks : 

A  flow  chart  for  DEFEN16  is  presented.  DEFEN26  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  routines. 

D&KKN17  and  DEFEN27  -  Seventh  Defensive  Tactic 

Purpose : 

DEFEN17  and  DEFEN27  are  ENTRY  points  in  DEFEK11  and  DEFEN21,  respectively. 
The  tactic  develops  a  maximum  specific  energy  path  in  a  vertical  plane. 
Angle-of-attack, which  maximizes  E  at  time  AT  ahead  along  the  predicted 
flight  path, is  determined  by  local  control  perturbation.  The  tactic  in¬ 
cludes  logic  to  force  a  transfer  to  supersonic  conditions.  A  flow  chart 
forDEFEN17  is  presented.  DEFEN27  is  identical,  except  for  use  of  vehicle 
2  COMMON  blocks  and  auxiliary  routines. 
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88  FIXEDR  and  FIXEDR2  -  Fixed  Role  Selection  Routine 


Purpose : 

To  provide  a  means  for  overriding  the  combat  role  selection  logic. 
Method: 

When  the  tactic  selection  indicator,  MQFFENj[  is  negative,  the  role 
selection  is  overridden, and  the  role  is  selected  on  the  basis  of 
MOFFENi  as  follows: 

MOFFENi  =  -1,  Passive 

=  -2,  Defensive 
=  -3,  Evasive 
=  -H ,  Offensive 
=  -5,  Attacking 

Remarks : 

A  flow  chart  for  FIXEDR  is  presented.  FIXEDR2  is  identical  except  for 
the  use  of  vehicle  2  COMMON  blocks  aud  auxiliary  subroutines. 
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EVADE11  and  EVADE21  -  First  Evasive  Tactic 


89. 


Purpose : 

To  steer  each  vehicle  into  a  hard  pull-up  maneuver.  A  flow  chart  for 
EVADE11  is  presented.  EVADE21  is  identical  except  for  use  of  vehicle 
2  COMMON  blocks. 

EVADE12  and  EVADE22  -  Second  Evasive  Tactic 


Purpose : 

EVADE12  and  EVADE22  sire  ENTRY  points  in  EVADE11  and  EVADE21, respectively. 
They  steer  each  vehicle  in  a  random  weaving  maneuver.  A  flow  chart  for 
EVADE12  is  presented.  EVADE22  is  identical  except  for  use  of  vehicle  2 
COMMON  blocks. 

EVADE13  and  EVADE23  -  Third  Evasive  Tactic 


Purpose : 

EVADE12  and  EVADE13  are  ENTRY  points  in  EVADE11  and  EVADE21.  They  steer 
each  vehicle  into  a  Split-S.  A  flow  chart  for  EVADE13  is  presented. 
EVADE23  is  identical  except  for  the  use  of  vehicle  2  COMMON  blocks. 

EVADEll  and  EVADE21+  -  Fourth  Evasive  Tactic 


Purpose; 

EVADElU  and  EVADE24  are  ENTRY  points  in  EVADE11  and  EVADE21.  They  steer 
each  vehicle  in  a  random  sequence  of  hard  turns.  The  direction  of  the 
turns  is  changed  at  intervals  of  TNEWBA.  A  flow  chart  for  EVADElU  is 
presented.  EVADE2U  is  identical  except  for  use  of  vehicle  2  COMMON 
blocks . 

EYADB15  and  EVADE25  -  Fifth  Evasive  Tactic 
Purpose: 

EVADE15  and  E7A35E25  are  ENTRY  points  in  EVADE11  and  EVADE21 .  They  steer 
each  vehicle  towards  a  vertical  dive.  At  y  -  90  -  0^^ ,  the  maneuvers 
become  zero  lift;  dives.  A  flow  chart  for  EVADE15  is  presented.  EVADE2c; 
is  identical  except  for  use  of  vehicle  2  COMMON  blocks. 

EVADE16  and  EVADE26  -  Sixth  Evasive  Tactic 


Purpose: 

EVADE16  and  EVADE26  are  entry  points  in  EVADE11  and  EVAPE21,  respectively. 
They  steer  each  vehicle  inno  a  randan  rolling  maneuver  with  maTiimim  angle- 
of -attack  and  sideslip.  A  flow  chart  for  EVADE16  is  presented.  EVADE26 
is  identical  except  for  use  of  vehicle  2  COMMON  blocks. 
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90.  OFPEN11  and  OFTEN21  -  Lag-Pursuit.  Offensive  Tactic 
Purpose; 

To  steer  each  vehicle  along  a  lag-pursuit  course. 

Method : 

When  the  first  offensive  tactic  is  selected,  a  vehicle  flies  a  lag- 
pursuit  course  determined  hy  force  maximization  along  the  lag-pursuit 
vector.  Instantaneous  bank-angle  perturbation  defines  the  desired 
control  variable  values. 

Remarks: 

A  flow  chart  for  0FFEN11  is  presented.  0FFEN21  is  identical  except  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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91.  0FFEN12  and  0FFEN22  -  Lead-Pursuit  Offensive  Tactic 


Purpose : 

To  steer  each  vehicle  along  a  lead-pursuit  course. 

Method: 

When  the  second  offensive  tactic  is  selected,  a  vehicle  flies  a  lead- 
pursuit  course  determined  by  force  maximization  along  the  lead-pursuit 
vector.  Instantaneous  angle-of-attack  and  bank-angle  perturbations 
define  the  desired  control  variable  values. 

Remarks : 

A  flow  chart  for  0FFEN21  is  presented.  0FFEN22  is  identical  except 
for  use  of  vehicle  COMMON  blocks  and  auxiliary  subroutines 

0FFEN12  and  0FFEN22  are  ENTRY  points  in  0FFEN11  and  0FFEN12. 
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92.  QFFEN13  and  OFFER 2 3  -  Reference  Vector  Offensive  Tactic 


Purpose: 

To  steer  each  vehicle  along  a  reference  vector  course  which  is  a  linear 
combination  of  the  lead-angle  and  line-of-sight  vectors. 

Method: 

When  the  first  offensive  tactic  is  selected,  a  vehicle  flies  a  reference 
vector  pursuit  course  determined  by  force  maximization  along  the  refer¬ 
ence  vector.  Instantaneous  angle-of-attack  and  bank-angle  perturbations 
define  the  desired  control  variable  values. 

Remarks : 

A  flew  chart  for  0FFEN13  is  presented.  0FFEN23  is  identical  ei.cept  for 
use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 

0FFEN13  and  0FFEN23  are  entry  points  in  0FFEN11  a  i  0FFEN21. 


314 


93.  ATTACH  and  ATTAC21  -  First  Attacking  Tactic 


Purpose; 

To  steer  each  vehicle  along  a  path  which  simultaneously  tracks  the 
firing  point  and  eliminates  any  steering  errors. 

Method : 

When  the  first  attacking  tactic  is  selected,  a  vehicle  steers  in  a 
manner  calculated  to  eliminate  steering  errors  and  track  the  firing 
point.  Instantaneous  bank-angle  perturbations  define  the  desired 
bank-angle;  angle-of-attack  is  determined  by  subsequent  minimization 
of  the  difference  between  force  magnitude  and  force  magnitude 
required. 

Remarks: 

A  flow  chart  for  ATTACH  is  presented;  ATTAC21  is  identical  except 
for  the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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9*t.  ATTAC12  and  ATTAC22  -  Second  Attacking  Tactic 


Purpose: 

ATTACH  and  ATTAC22  sure  ENTRY  points  in  ATTACH  and  ATTAC21,  respectively. 
The  second  attacking  tactic  is  identical  to  the  second  offensive  tactic. 


ATTAC13  and  ATTAC23  -  Third  Attacking  Tactic 
Purpose: 

ATTAC13  and  ATTAC23  are  ENTRY  points  in  ATTACH  and  ATTAC21,  respectively. 
The  third  attacking  maneuver  is  identical  to  the  third  offensive 
maneuver . 


ATTAClU  and  ATTAC2U  -  Fourth  Attacking  Tactic 
Purpose : 

ATTAClU  and  ATT AC 2 U  ore  ENTRY  points  in  ATTACH  and  ATTAC21,  respectively. 
The  fourth  attacking  maneuver  is  identical  to  the  first  offensive 
maneuver . 
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95.  CTLOPT  -  Internal  AESOP  Optimization  Loop 


Purpose : 

To  provide  an  internal  parameter  optimization  capability  independent 
of  the  outer  trajectory  or  design  optimization  loop. 

Method: 

A  control  program  essentially  identical  to  the  AESOP  control  program 
is  created.  The  outer  parameter  optimization  data  base  is  preserved 
on  tape  at  trajectory  commencement  and  is  retrieved  at  trajectory 
termination.  During  the  trajectory  CTLOPT  through  IMAINOF  permits 
independent  access  to  the  AESOP  optimization  routines.  Optimization 
functions  are  defined  by  a  variety  of  control  programs  embodying  com¬ 
bat  guidance  laws  and  local  inequality  information.  CTLOPT  is  used  by 
either  vehicle. 
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96 .  NjPTIfl  -  ,H  -  Bjaspgiop&il  IgPteVB.flpH.tilW 


Purpose 

To  provide  a  method  of  linearly  interpolating  in  a  table  of  r.  independent 
variables . 

Jfe&lSJ. 

Given  the  arguments  X(l),  X(2),  X(  3 ) » • » . »  X(N-l),  the  routine  computes 
Y  =  f(X(l)),  X(2),  X(3),...,  X(N-l)  by  linear  interpolation  from  a  table. 
Extrapolation  beyond  the  upper  and  lower  limits  is  optional. 

Mgs 

Entry  is  made  via  the  statement: 

CALL  NDTLU  (ND,NA,X,Z,XA,ZR,IE,NEXTR) 

where 

ND  =  Dimension  of  look-up  when  Y-f(X).  ND  *  2 

NA  *=  An  array  of  length  ND-1.  Numbers  of  values  of  each 

table  of  X.  The  tables  are  listed  by  size,  the  largest  being 
first. 

X  =  Tables  of  each  X  in  order. 

Z  =  Function  values.  If  A  **  f(X,Y,Z)  the  dependent  variable  array 
must  be  in  the  following  order 

Assume  X  =  4,  Y  =  3,  Z  =  2 

Z(l)  =  f(Xl,n,Zl)  Z(13) 

7,(2)  =  f(X2,Il,Zl)  Z(14) 

Z(3)  =  f(X3,Yl,Zl)  Z(15) 

Z(4)  =  f(X4,Yl,Zl)  Z(16) 

Z(5)  -  f(Xl,T2,Zl)  Z(17) 

Z(6)  »  f(X2,Y2,Zl)  Z(l8) 

Z(7)  =  f(X3,72,Zl)  Z(19) 

Z(8)  “  f(X4,Y2,Zl)  Z(20) 

Z<9)  -  f(Xl,T3,Zl)  Z(21) 

Z(10)  -  f(X2,Y3,Zl)  Z(22) 

Z(U)  *  f(X3,T3,Zl)  Z(23) 

2(12}  =  f(X4,I3,Zl)  Z(24) 

ZR  =  Results 

NEXTR  =  1  Extrapolate 

=  0  No  extrapolation 
IE  =•  Error  code 
0  no  error 
-1  X  array  too  small 

1  X  array  too  large 

2  array  not  in  ascending  order 
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-  f(xi,n,z2) 

-  f(X2,Yl,Z2) 

-  f(X3,n,z2) 

-  f(X4,Yl,Z2) 

-  F(X1,Y2,Z2) 
"  f(X2,Y2,Z2) 

-  f(X3,Y2,Z2) 

-  f(X4,Y2,Z2) 
»  f(Xl,Y3,Z2) 

-  f(X2,73,Z2) 
=  f(X3,I3,Z2) 

-  f(X4,Y3,Z2) 


Let,  n  be  number  of  independent  variables,  then  the  table  in  called  an  "(n+l) 
dimensional  table." 

Z  *  fCx^,.. . ,xn) 

Program 

To  uae  a  table  of  dimension  £  3  and  s  5  a  call  to  Hlh'O  should  be  made  with 
the  li_t  of  arguments  in  the  calling  sequence  in  the  same  order  a3  the  independent 
variables  are  numbered. 
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97*  CHEMF  and  CKEMP2  -  Chemical  State  Computation 


Purpose: 

To  provide  the  thermodynamic  and  transport  properties  of  air  downstream 
of  the  shock. 


Method: 

Linkage  to  this  subprogram  is  achieved  by  a  statement  of  the  general 
form: 


CALL  CHEMP  (P,H,T,RHO,AMU,SS,K) 


K  =  0: 

The  pressure  and  temperature  are  assumed  to  be 
defjned.  The  enthalpy,  density  and  coefficient  of 
viscosity  are  computed. 

K  -  1: 

The  pressure  and  enthalpy  are  assumed  to  be  defined. 
The  temperature,  density  and  coefficient  of  viscosity 
are  computed. 

K  *  -1: 

The  same  as  the  case  where  K  "  1  except  that  the  speed 
of  sound  is  also  computed. 

Remarks : 

INDGAS  -  1: 

Real  gas  effects  considered. 

INDGAS  -  -1,0: 

Perfect  gas  assumed. 
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H  =  6  00  8.  *  T 


T  =  H/6008. 

P  =  1.232819 
*  P/T 

P  rr  2.27*  10-1 
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93.  CONV  -  Non-Linear  Equation  Solver 


ftiroose 

To  find  a  zero  of  the  equation  g(x)  r--  0  where  g'(x)  exists  in  the  vicinity 
of  the  zero 


Method 

The  method  of  false  position  is  used  with  the  Aitken  6^  process  to  improve 
the  rate  of  convergence. 

Let  F(r,s)  =  ^[s]  ~  3g[r|  (False  position) 

L‘(r,s,t)  =  t  -  ^2s"+^r  (®2  "  process) 

Given  an  estimate  x^,  of  the  zero,  the  following  steps  are  executed: 

1.  x^  “  (l.OOOl)x^  or  Xj  *  x^  +  .0001,  whichever  is  larger 

2.  X3  =  F(xp  x^) 

3-  Let  Xi  be  the  x^  or  x^  which  produces  a  g  whose  sign  is  opposite 
that  of  g(xo).  If  there  is  no  suen  x^,  let  x,  be  the  x^  or  x- 
producing  the  smallest  value  of  g.  Let  x^  =  FCx^,  x^) 

4.  Let  z  “  x,  or  Xo  which  was  not  set  equal  to  xi.  xa  =  xc  -^5—-  - 

5.  Let  x^  *=  x^  and  x^  be  the  Zp  x~,  or  x,  producing  a  g  whose  sign 

is  opposite  that  of  g(x^).  If  ho  such  x  exists,  let  x^  =  Xr.  Return 
to  Step  2. 

This  procedure  is  repeated  until  |g(x)J  <  e,  e  a  given  tolerance. 

Usage 


Given  an  x^  and  g(xn),  the  routine  confutes  a  new  value  x^p 
Entry  CALL  CONV  (EPS,  MAX,  GXN,  XN,  DID,  K) 


An  initial  call  is  made  with  K  =  0.  This  is  done  only  once  in 
the  program,  prior  to  the  second  entries  first  call,  and 
initializes  EK3,  MAX,  ant  indicators  in  the  routine.  EPS  is 
;he  convergence  tolerance,  e.  MAX  Is  the  maximum  number  of 
interations  allowed  before  an  error  return  is  made. 


After  every  calculation  of  g(x~),  a  r*Ll  is  made  with  K  =  1, 
and  the  current  values  of  g(xn)  and  xn.  Return  is  mfde  with 
a  new  estimate  -%fi>  and  a  return  indicator  IND,  where 
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1,  Calculate  g(x)  again  . 

2,  Successful  convergence  (i.e.,  |g(x)  |  <  «) 

IND  =  3>  Error  return,  division  by  zero  was 

imminent,,  returns  with  old  value  of  xn. 

4,  Allowed  maximum  number  of  iterations 
exceeded . 

GXN  =  value  of  g(xn) 

XN  =  current  estimate  of  x.  This  is  the  value 

corresponding  to  g(xn)  when  the  call  is  made, 
and  is  either  a  new  estimate  x^-^  on  return 
from  CONV  with  IND  =  1,  or  is  the  old  value 
xn  on  return  with  IND  =  2,3,4- 

The  user  first  gives  the  call  statement  with  K  =  0  for  initialization. 

Then  he  establishes  an  initial  guess,  Xjj,  evaluates  gCx^,  and  gives  the  second 
call,  with  K  =  1.  If  convergence  is  not  obtained,  the  routine  returns  with  IND  = 
2  and  a  new  x-guess  in  XN.  The  user  must  now  re-svaluate  GXN  using  the  new  x- 
guess.  The  process  continues  until  IND  =  2,  3,  or  4-  For  IND  =  4,  no  con¬ 
vergence  in  MAX  tries. For  IND  =  3  a  division  by  zero  has  occurred.  For  IND  =2, 
the  correct  x-value  is.  in  XN.  The  following  flow  diagram  is  intended  to  clarify 
the- use  of  CONVRG. 


99 .  TFFH  and  TF7M2  -  Multiengine  Thrust  and  Fuel  Flow 

Purpose: 

The  multiengine  thrust  and  fuel  flow  program  provides  the  means  of 
introducing  the  data  for  the  various  engines.  It  corrects  the  thrust 
for  atmospheric  effects  when  appropriate  and  resolves  the  thrust 
vectors  into  their  components. 

Usage: 

Linkage  to  TFFM  is  accomplished  via  the  general  statement: 

CALL  TTFH  (IENTRY) 

where  I ENT HI  is  a  fixed  point  variable. 

IENTKf  ■  1 

This  is  the  pre-data  initialisation.  At  this  entry  the  subscripts 
for  all  tables  are  computed  and  the  following  data  is  initialised: 

INDTFF  “  0  "  thrust  option  indicator 


%  -  1. 
CNVMi  -  1. 
CNVT±  -  1. 
INDENGi  -  0 


“  throttle  setting 

■  mass  rate  units  conversion  factor 

*  thrust  units  conversion  factor 
=  engine  option  indicator 

*  propellant  mass  flow  rate  factor 

■  specific  impulse  factor 

■  action  time  factor 

■  propellant  loading  factor 

■  pei turbation  factor 
=■  perturbation  factor 

-*  ncssle  rotation  about  x-axis 
“  noszle  swivel  angle  from  x-axis 


Pt^  D  0  =  thrust  reference  pressure 

where  i  as  used  above  is  the  set  of  integers  1,  2,  3  corresponding  to 
the  three  engines. 
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XENTRT  -  2 


This  is  the  pest-data  initialisation.  At  this  entry  no  computations 
are  performed  if  INDTFF  *0.  If  INDTFF  f  0  the  number  of  engines  is 
determined  from  the  indicator  HIDENG .  If  no  IND0JG  has  been  loaded, 
an  error  exit  occurs. 

IENTHY  -  3 

At  this  entry  the  various  computations  are  performed.  If  INDTFF  ™  0, 
no  computations  are  performed.  When  INDTFF  is  10  or  11  and  INDENG  is 
defined,for  a  given  engine,  the  following  computations  are  performed 
for  that  engine: 

INDTFF  -  10  when  INDEJJG  =»  il  give::  the  Multiengine,  Noncontrolled, 
Perturbed  Thrust  Option.  For  this  option  the  tabulated  data  functional 
relationships  are: 

Tr  -  f  (  r  ) 

*p  "  f(r) 

and  the  computations  performed  for  the  engine  are  ae  follows: 

7-*  (  m-l 

r  * - ”  reference  time  as  a  function  of  stage  time 

eT2  f  T3 

m  _  7  }  .  <xi  *T4  „  fue^-  rrte  +  internal 

EES  GWMISP]^jjG  *T  2  inert  product  flow  rate 

T  =  ct1€T4T  R^>-<P  ”  PR)Ae  •  total  corrected  thrust 

°t  "  •  (mENG  +  V  °  total  flow  rate 

INDTFF  ■  10  when  INDENG  *»  i2  gives  the  Multiengine,  Controlled, 
Perturbed  Thrust  Option.  For  this  option  the  tabulated  data  functional 
relationships  are: 

mf  -  f(N) 

Ap  =  f ( r9) 

and  the  computations  performed  for  the  engine  are  as  follows: 

•  “7* 

mf  ”  "4“  f  T5  “  perturbed  mass  flow  rate 

T'  “  G^Igp  ■  perturbed  thrust 

^ENG 

T  m  ”  pRMe  ”  total  corrected  thrust 

•  •  • 

mt  -  -  (mj  +  Ap)  -  total  mass  flow  rate 
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IDOTFF  =»  10  when  INDENG  ~  13  gives  the  Multiengine,  Air  Breather, 
Perturbed  Thrust  Option.  For  this  option  the  tabulated  data 
functional  relationships  are: 

Tr  -  f(N,h,  «,Mn) 

mt  =  f(N,h,  a ,Mn) 


ana  the  computations  performed  for  the  engine  are  as  follows: 
•  * 

“  perturbed  mass  flow  rate 
T  ■  TR  <t6  =  P«i*turbed  thrust 


=  vehicle  mass  flow  rate 


INDTFF  =  11  when  INDENG  a  il  gives  the  Multiengine,  Noncontrolled, 
Perturbed  Thrust  Having  Alternate  Table  Format.  For  this  option  the 
tabulated  data  functional  relationships  are: 

rap  =  f(t3) 

Ap  -  ftr3) 

The  computat  ions  are  identical  to  the  computations  in  the  Multi  engine. 
Controlled,  Perturbed  Thrust  Option,  i.e.  INDTFF  =  10  when  INDENG  =  i2. 


NOTES: 


While  it  i3  possible  to  marge  from  the  single  engine  option  (TFFS)  in 
a  given  stage  to  the  mu'tiengine  option  (TFFM)  in  a  later  stage,  the 
opposite  is  not  possible. 


A  flow  chart  for  TFFM  is  presented.  TFFM2  is  identical,  except 
for  the  use  of  vehicle  2  COMMON  ulocks  and  auxiliary  subroutines. 


1O0.AIMS59  and  ATMS592  -  1959  Atmosphere  Calculation  Koucine 

Purpose: 

To  compute  the  atmosphere  characteristics:  density,  speed  of  sound, 
pressure,  temperature  and  kinematic  viscosity.  All  are  a  function  of 
altitude . 

Method : 

All  atmosphere  characteristics  are  computed  using  the  1959  ARDC  model 
atmosphere.  Values  of  the  atmosphere  are  computed  for  positive  altitudes. 
If  this  altitude  is  negative,  the  sea  level  values  will  be  obtained-. 

Usage: 

Linkage  is  affected  by 
CALL  ATKS59  (HGC7F) 


where 


HC-C7F  =  altitude  in  feet. 


Remarks : 


A.  3,9  ana  ARMS592  are  identical  except  for  the  use  cf  differing 
v- v  tele  COY1 .1.1  clocks. 
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101.  ATMS62  and  AT’Mfib22  -  1962  Atmosphere  Calculation  Rout:  ue 
Purpose: 

To  compute  the  atmosphere  characteristics:  density,  speed  of  sound, 
pressure,  tanperature  and  kinematic  viscosity.  All  are  a  function 
cf  altitude. 

Method: 

All  atmosphere  characteristics  are  computed  using  the  1962  AHDC  model 
atmosphere.  Values  of  the  atmosphere  are  computed  for  positive  altitudes. 
If  this  altitude  is  negative,  the  sea  level  vkhies  will  be  obtained. 

Usage : 

Linkage  is  affected  by 
CALL  ATMS62  (HGC7F) 
where, 

HGC7F  =  altitude  in  feet. 


A1MS622  is  identical  to  ATMS62  except  for  the  use  of  vehicle 
2  C0ML0N  blocks. 
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102. PUT  -  Character  Manipulation  Routine 


Purpose : 

To  replace  the  Ith  character  of  a  string  of  characters  with  the 
first  character  of  another  string  of  characters. 

Usage: 

Entry  is  made  to  this  routine  hy  the  following  statement : 

CALL  PUT(P,  I,  L) 

where  the  character  of  string  P  will  be  replaced  by  the  first 
character  of  string  L. 
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103.  GET  -  Character  Manipulation  Routine 


Purpose: 

To  replace  the  first  character  of  a  word  with  the  1^  character 
of  a  string  of  characters. 

Usage : 

Entry  is  made  to  the  routine  by  the  following  statement: 

CALL  GET(P,  I,  L) 

where  the  first  character  of  the  word  L  will  be  replaced  by  the 
Ith  character  of  string  P.  The  remaining  nine  characters  of  word 
L  are  replaced  by  blanks. 
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10U.  OPTPA  and  0PTBA2  -  Bank-Angle  Iteration  Routine 


Purpose : 

To  define  instantaneous  bank-angl^  on  the  base’s  of  local  optimization 
criteria. 

Method : 

A  local  minimization  criteria,  (t),  is  created  where 

<Mt)  =  4>(Ba) 

An  inner  loop  parameter  optimization  procedure,  CTLOPT,  is  used  to 
define  the  bank-angle  value  which  satisfies  the  resulting  local 
(t  =  constant)  optimization  problem.  The  local  minimization  criteria 
is  selected  from  one  of  several  combat  guidance  laws.  Final  steering 
errors  and  force  vector  pointing  errors  are  also  computed. 

Remarks : 

A  flow  chart  for  OPTRA  is  presented.  0PTBA2  is  identical  except  for 
the  use  of  vehicle  2  COMMON  blocks  and  auxiliary  subroutines. 
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105.  IMAINOP  -  Internal  Parameter  Optimization  Interface  Routine 


Purpose: 

To  act  as  an  interface  between  the  two  vehicle  trajectory  equations 
and  the  parameter  optimization  routines. 

Method : 

Core  size  requirements  limit  the  internal  optimization  capability 
to 

a.  Sectioning  search 

b.  Creeping  search 
c  Pattern  search 

IMAINO?  interfaces  the  trajectory  equations  to  these  three  search 
options . 
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106.  ISELECT  -  Interval  Search  Selection  Routine 


Purpose : 

To  select  either  sectioning  or  creeping  search  in  the  internal 
parameter  optimization  loop. 


JSfi  £cr 
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107 •  MULT33  -  A  Matrix  Multiplication  Routine 


Purpose: 

To  post  multiply  a  3  x  3  matrix  by  a  3  x  3  matrix. 

Method: 

The  result  of  A  B  =  C  is  computed  using  single  precision 

Usage : 

The  matrix  multiplication  is  obtained  by  the  statement: 

CALL  MULT33  (A,  B,  C) 

where 

A  -  array  name  of  'he  3x3  matrix  A 

B  =  array  name  of  the  3x3  matrix  B 

C  =  array  name  where  results  are  tc  be  stored  as  the 
3x3  matrix 

Remarks : 

This  routine  calls  no  other  routines. 
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SECTION  VII 

PROGRAM  CTLO 


Program  CTLS  controls  the  variational  optimization  option.  The 

tashs  performed  by  the  CTLS  program  include  the  following: 

1.  Print  the  CTLS  summary,  which  includes  the  values  of  ths  optimisa¬ 
tion  functions.  (E) 

2.  Evaluate  the  forward  trajectory  by  considering  the  inprovement  or 
deterioration  of  the  optimization  functions.  (E) 

3-  Decide  whether  to  accept  a  forward  trajectory  as  a  valid  3tep,  or 
to  reject  it.  (E) 

4.  To  determine  the  o-perturbation  to  use  on  the  next  forward  trajectory. 

5.  To  put  together  the  a -perturbation  that  is  desired  by  using  the  infor¬ 
mation  from  REV  on  tape  ILTAP,  constructing  the  CTABLE  and  putting  it 
out  on  tape  IATAP. 

6.  To  output  the  restart  cards  for  trajectories  which  are  accepted  as 
valid  steps.  (E) 

7.  Housekeeping  -  e.g.  updating  the  pass  number  and  cycle  number,  PHBRST, 
PSBRST,  etc. 

The  CTLS  segment  is  entered  either  from  EXE  or  REV.  The  "E"  designates 
those  tasks  which  pertain  only  to  entry  to  CTLS  from  EXE. 

CTLS  proper  allows  the  user  to  select  which  control  system  will  be  used  in 
the  optimization  program. 

Usage 

CALL  CHAIN  (CTLS) 

Remarks 


INDSEL  is  of  the  form  iOj.  i  determines  which  control  system  will  be 
used  with  the  optimization  program.  For  i  *  1,  CTLSl  is  used.  For  1=3; 
CTLS2is  used,  i  also  determines  which  decision  subprogram  will  be  called. 
Currently  i  =  1  and  i  =  3  are  the  onl.y  us  able  options,  j  determines  which 
equations  subprogram  will  be  used. 


CTLS  calls  CTLSl  and  CTLS2. 


1. 


The  control  system  is  a  predictor-corrector  method  of  control  over  the 
convergence  of  the  end  constraints  and  payoff  function.  A  linear  prediction 
of  the  changes  in  end  constraints  and  payoff  function,  due  to  a  change  in  the 
control  variable(s),  is  made  and  attenp+ed.  If  the  trial  is  near  enough  to 
the  linear  prediction,  the  control  variable  is  changed  to  give  the  best  change 
in  end  constraints  and  payoff  function,  and  the  final  values  of  the  functions 
(for  the  cycle)  are  confuted.  If  the  trial  is  not  near  enough,  the  change  in 
the  control  variable(s)  is  reduced  and  another  prediction  and  attempt  are  made. 

If  the  end  points  and  payoff  function  are  too  near  the  linear  prediction,  the 
amount  of  change  is  increased.  Under  normal  circumstances,  the  control  will 
never  take  more  than  six  passes  but  if  for  some  reason  the  INDERR  is  set 
positive  more  passes  can  be  taken.  If  six  or  more  passes  are  made  by  the  con¬ 
trol  system  then  INDSIC  is  set  to  0  and  M'T  and  ar®  reset.  On  return 

from  th8  reverse  integration  if  DP2  -  d/9^  1^  d^  is  negative  then  DP2  =  1.1  DP^  ^ 

and  only  the  (TT  corresponding  to  the  constraints  which  are  diverging  are  decreased. 

There  are  two  entries  and  two  exits  in  this  program.  One  entry  is  from  the 
program  which  confutes  the  functions  and  matrices  of  partial  derivatives  (DIFEQ); 
,his  entry  is  to  the  portion  of  the  control  system  which  compares  the  linear 
predictions  to  the  actual  values  of  the  end  poiiit  and  payoff  function  changes. 

An  exit  is  made,  after  each  cycle  is  completed,  to  a  program  which  computes  the 
w  matrices  and  other  values  needed  tc  compute  the  mode  shape  of  the  change  in 
the  control  variable(s)  (REV). 

Another  entry  is  made  from  that  program  (REV)  to  the  portion  which  checks 
for  the  conditions  needed  to  terminate  and  computes  the  control  variable  change 
for  the  first  trial  of  a  new  cycle.  The  second  exit  is  to  the  program  which 
computes  the  functions  and  matrices  of  partial  derivatives  (DIFEQ). 


NDSIC, 
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2 .  CTLS2  -  Arbitrary  Control  System 


P'AfPgSfi. 

To  serve  as  an  "arbitrary"  control  system;  namely,  to  perform  the  routine 
chores  that  must  be  done  in  the  CTLS  segment,  but  to  defer  the  important  decisions 
to  subprogram  DECIDE. 

Method 

The  flow  chart  provides  the  best  description  of  those  tasks  performed  in 
CTLS2.  CTLS2  may  be  entered  at  two  different  parts  of  the  program:  when  segment 
CTLS  is  brought  in  after  3egnent  EXE  or  when  segment  CTLS  is  brought  in  after 
segment  REV.  At  every  point  where  a  critical  decision  must  be  made,  a  call  is 
made  to  DECIDE  with  a  particula.  entry  point. 

There  are  four  primary  decisions  that  must  be  made  by  DECIDE: 

a.  The  &a  mode  shape  to  use. 

b.  Whether  to  accept  a  pass  as  a  valid  step. 

c.  If  the  decision  concerning  (b)  is  negative,  the  step  size  to  use 
for  the  next  pass. 

d.  Whether  to  compute  partials  on  the  next  pass. 
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.TLS2  -'.alee a  care  of  the  following  important  chores  itself: 

1.  Updating  indicators,  e.g.  INDPST,  NCYCLE,  NPASS,  etc. 

2.  Outputting  the  CTLS  Summary  print. 

3.  Outputting  restart  cards  for  CTABLE  and  DELP2. 

4.  Updating  PSSTAR,  PHSTAR,  PSBRST,  and  PHBRST  tables.  These  tables 
contain  the  values  printed  under  "CTLS  Summary". 

5.  Calling  the  next  segment  (either  3RAPH  or  REV). 

6.  Computing  DENOM  =  I  -I  IM_1  I  and  SSIPH  ■  I  I  and 

epep  Y(p  YY  Yep  Yep  YY 

SSIDS  -  dp  I  -1 

7.  Recalculating  parameters  (e.g.  d 8)  to  be  compatible  with  the  change 
Dp2  determined  by  the  value  of  COEFK  which  is  set  in  DECIDE, 

Id p^-dp  dp 

8.  Computing  RADIO  =4/ - — - - 

*  I  -I  L,'1  I 

qxp  Yep  YY  Yep 


9.  Calling  DALCAL  to  either  compute  a  new  mode  shape  for  5 a  or  to 
change  the  amplitude  of  the  existing  mode  shape. 

1C.  Terminating  the  case  when  it  is  impossible  to  continue. 

IT*  Making  sure  that  DP2  -  d8  I” id 8  is  not  negative.  DECIDE  will 

be  called  repetitively  with  entry  point  9  until  this  condition 
is  satisfied. 


Communication  between  CTLS2  and  DECIDE  is  accomplished  through  the 
calling  sequence,  primarily.  There  are  three  indicators  used  here  which 
need  clarification: 

INDAMP:  Decide  sets  INDAMP  fO  if  the  desire  is  to  change  the  amplitude  of  the 

current  perturbation  (by  multiplying  the  perturbation  by  COEFK). 
INDAMP  is  set  to  0  by  DECIDE  if  a  new  mode  shape  is  to  be  attempted. 

ITBAL:  ITBAL  is  updated  by  CTLS2;  it  is  the  number  of  calls  made  to  DECIDE 

(9)  in  orler  to  attempt  to  find  a  feasible  mode  shape. 

INDBAL:  INDBAL  is  set  =/0  by  DECIDE(9)  to  inform  CTLS2  that  it  is  satisfied 

with  the  mode  3hape. 

Remarks 

Changes  in  the  step  size  made  by  DECIDE,  must  be  done  by  setting  COEFK; 

S2  will  set  DELP2  =  COEFK 2*  DELP2. 
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3.  DISPLAY  -  Console  Display  Routine 


Purpose: 

To  output  data  to  the  display  console  on  the  10-inch  display  tube. 
Method : 

By  setting  sense  switch  6  a  peripheral  processor  is  selected  and  the 
CTLS  summary  is  displayed  on  a  10-in  h  display  tube 

Usage: 

Entry  is  made  to  the  routine  by  the  following  statement 
CALL  DISPLAY  (IPAY.IIIFMT) 

where 

IPAT  is  payoff  function 

IIIBfT  is  the  number  of  constraints. 
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4 .  SEARCH  -  Search  Routine 


Purpose : 

Compute  a  nominal  starting  trajectory  for  the  optimisation  program. 
Method : 

The  search  routine  allows  the  user  to  vary  a  control  parameter  to 
satisfy  any  single  end  constraint  in  the  hope  this  is  a  bevter  nominal 
trajectory.  Any  parameter  used  in  the  initial  condition  optimization 
or  any  half  point  in  the  CTABLE  may  be  used  by  the  search  routine  as 
an  adjusting  variable.  Any  trajectory  the  search  routine  finds  may  or 
may  not  be  a  good  trajectory  for  the  optimization  program.  In  fact, 
sometimes  what  appears  to  be  a  good  starting  trajectory  by  inspection 
turns  out  not  to  be  a  good  nominal  trajectory  for  the  optimization 
program.  Therefore,  if  one  fails  to  get  started  with  the  first  nominal, 
a.  second  attempt  should  be  made  with  another  nominal. 

Assume  the  same  test  case  as  before  but  now  set  a  half  point  in  the 
CTABLE  as  the  adjusting  parameter. 

Example : 

NPOINT  3 

CTABLE  0,  ICO.,  300.,  -1.,  2.,  0 


If  the  above  table  is  assumed  to  be  a  then  it  has  the  shape  as  follows: 


LIMDER 

DESIRE 

CONVAR 

SECLIM 

KPOINT 

LIMIT 

3EXN 


-3 

0 


100.  200 

Time 

BCD  1QEXN 

BCD  1HGC7F 

2. 

1. 


300 


5 

2000. 

270000. 


A  half  point  alpha  at  time  100.  seconds  is  the  control  variable. 

LIMDEfi,  CE3IKE,  LIMIT,  and  QEXN  are  unchanged  from  the  previous  example. 
CONVAR  is  set  equal  to  2.  SECLIM  is  set  to  1.  and  on  the  second  try 
the  a  history  would  appear  as  the  dotted  line.  ADJUST  is  not  needed 
when  working  with  the  CTABLE.  KPOINT  is  set  equal  to  5  which  is  the 
5th  location  in  the  CTABLE. 
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Assume  T.hat  conditions  exist  such  that  one  would  like  to  have  a  trajec¬ 
tory  that  would  terminate  at  270,000  feet  altitude  +  2000  feet  tolerance 
by  adjusting  the  initial  7 

Entry  is  made  to  the  search  routine  with  one  data  card. 

IKDMOD  1 

Other  data  is  expected  if  the  above  data  card  is  included. 


LIMDER 

BCD 

1QEXN 

DESIRE 

BCD 

1HGC7F 

ADJUST 

BCD 

1GAM7D 

CONVAR 

0 

SECL3H 

2. 

KPOINT 

0 

LIMIT 

2000. 

QEXN 

270000 

GAM7D 

0 

LIMDER  contains  the  BCD  word  of  some  unused  ?ell  in  core.  QEXN  contains 
the  required  end  value  of  altitude.  DESIRE  '.ontains  the  BCD  word  of  the 
end  constraint.  ADJUST  contains  the  BCD  word  of  the  control  parameter 
being  varied.  CONVAR  should  nave  the  same  initial  value  as  the  control 
variable.  SECLDC  is  the  value  of  the  control  variable  on  the  second 
try.  KPOINT  is  the  location  of  the  half  point  in  CTABLE  to  be  varied. 

In  this  case  7  is  the  control  variable  and  KPOINT  must  be  set  to  zero. 
LIMIT  is  the  tolerance  on  altitude.  A  +  or  -  is  assumed  on  the  tolerance. 

Any  location  in  CTABLE  may  be  varied  the  same  by  changing  the  necessary 
data. 

Remarks: 

All  data  for  the  search  routine  should  be  in  DATA1. 

The  CTABLE  must  be  put  in  DATA1  as  a  function  of  trajectory  time 
(INDCTA  =  0). 
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0UNKK1  -  CONVA* 


SEARCH  (2) 
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5.  CARDS  -  Restart  Cards  Routine: 


Purpose: 

To  output  information  which  may  be  used  to  restart  the  program. 

Usage : 

CALL  CARDS  (STM,VAR,N,ITAFE) 

STM  =  symbol  to  be  output  or  signal  to  rewind  card  tape. 

VAR  **  location  of  values  to  be  output . 

N  *  number  of  values  to  be  output. 

ITAPE  “  tape  on  which  printed  output  occurs  or  signal  to  place 
end  of  file  on  card  tape. 

Restart  cards  for  each  cycle  are  output  on  the  output  tape  ITAPE. 
Restart  cards  for  the  last  completed  cycle  are  output  on  the  card  tape 
KTAFE.  ITA7E=6  and  KTAPB=15.  All  values  are  output  in  OCTAL. 

Remarks: 

CTuSl  and  CTLS2  call  CARDS. 

CARDS  calls  LINES. 

I 
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6.  DALCAL  -  Delta  Alpha  Calculation 


Purpose: 

This  subprogram  of  CTLS  computes  fin*  and  fix,-,  by  combining  the  various 
linearly  independent  solutions  to  the  adjoint  equations  computed  in  REV. 
It  is  necessary  that  this  task  be  deferred  until  this  time  because  the 
coefficients  in  the  linear  combination  for  computing  in  and  Ax0  are 
determined  by  the  control  system  and  hence  are  not  available  during  REV. 
Also,  depending  on  the  control  system  being  used,  it  nay  be  necessary 
to  change  the  coefficients  from  one  pass  to  the  next.  The  values  of  the 
coefficients  (l*^r  d/3  =  SSIDS)  determine  the  mode  shape  of  the  perturba¬ 
tion.  This  subprogram  not  only  computes  in  (DEAIPH)  but  it  updates 
(CTABLE)  with  thi perturbation.  Perturbations,  «Xo  (DELI),  to  initial 
conditions,  Xq,  (VALINS),  are  computed  and  the  initial  conditions  are 
updated  here  in  a  manner  analagous  to  the  in  computations. 


Method: 

There  are  two  entry  points  to  this  subprogram.  The  first  entry  point  is 
for  compiling  the  perturbation  for  the  first  pass  of  a  cycle  or  for  any 
pass  where  the  mode  shape  is  being  changed.  The  second  entry  point  is 
for  changing  the  amplitude  of  the  previous  perturbation. 

This  subprogram  will  terminate  the  case,  if,  for  any  gi/en  stage,  the 
history  exceeds  the  limits  of  the  dimension  of  CTABLE. 


At  entry  point  1,8  a  and  8  xq  are  computed  according  to : 


in  ~ 


v  GVfw  ^'yi^yy  1  yi 


DP2  -dfll^  dp  +  w'1G’x,fuIn"1dd 
I  -I  I  _1I  , 

Y<r>  yy  y* 


a,w'lR,xv;T 


-dfllTV^B 


■I  I  ”^T 

y^ty 


U-1R'x '  I  _1dfl 
K  YH  YY 


In  the  above  expressions,  the  radical  (RADIO)  is  available  since  it  has 
been  computed  in  CTLS.  Also  Iyy  J  d (i  —  SSIDS,  and  Iyy  ~  SSIFH 

have  been  computed  in  CTLS. 

5^  calculations  will  be  made  for  each  major  stage.  iXo  calculations  are 
made  only  for  the  first  stage. 
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The  outline  of  the  subprogram  follows: 

Entry  Point  1 

(1)  Get  X^qGW"^  and  X^qGVT^-,  or,  and  W"^  for  the  ith  major 
stage  from  tape  ILTAP  (last  stage  comes  first). 

(2)  Compute  6< y  from  X^GvH-,  X^,{IG»T^,  RADIO, SSIDS,  and  SSIPH. 

(3)  Compute  the  new  or:  a  m  a  +  6  or. 

(4)  Plot  o,  6or  and  VT^  if  requested. 

(5)  If  more  stages  go  to  (10);  otherwise  go  to  (6). 

(6)  Get  X^jj  RU~1,  Xyft  RU“^,  and  Xq  from  tape  ILTAP. 

(7)  Compute  6xq  from  X^q  HIT1,  A^^Rin1,  RADIO,  SSIDS,  and 
SSIPH. 

(8)  Compute  the  new  Xq  ”  Xq  +  fiXo. 

(9)  Print  the  Xq,  aXq,  TP-*-  if  requested. 

(10)  Put  n>,  VT1,  6cr,  Xq,  U"-*-,  6X0  on  IATAP  (all  in  one  record). 

(11)  If  there  are  more  major  stages  to  go  (l);  otherwise  return. 
Entry  Point  2 

(1)  Get  a,  W1,  6or,  Xq,  U-1,  ftXp  from  tape  IATAP. 

(2)  Recover  to  the  last  good  or:  or  *  or  -  6-> 

(3)  Modify  6or:  6or  «■  k  ♦  5ff 

(4)  Compute  the  new  or:  or  =  cr  +  6cr 

(5)  If  more  major  stages,  go  to  (9);  otherwise  go  to  (6). 

(6)  Recover  to  the  last  good  x^,:  Xq  -  Xq  -  SXq 

(7)  Modify  6xq:  SXq  “  k  •  6Xq 

(8)  Compute  the  new  Xq:  Xq  =  Xo  +  6Xo 

(9)  Put  a,  W^,  8 or,  Xq,  U~^,  6x0  on  tape  ILTAP  (all  in  one  record). 

(10)  If  more  stages  go  to  (1);  otherwise  go  to  (11). 

(11)  Switch  IATAP  and  ILTAP  and  return. 
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Once  entry  point  2  has  been  called,  entry  point  1  may  not  be  called 
again  until  the  next  cycle  because  the  information  it  needs  on  ILTAP 
is  gone. 

The  information  from  REV  on  ILTAP  is  blocked.  Reading  this  tape 
(entry  point  l)  is  accomplished  by  calls  to  the  ad-hoc  unblocking 
routine  UNBLOCK. 
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Purpose 


This  subroutine  determines  the  "best"  step  size  coefficient  based  on  the 
given  data,  and  is  intended  to  be  a  part  of  the  over-all  logic  necessary  for 
step  size  evaluation  and  control. 

Ifeafie 

CALL  KCALC  (ARG1,  ARG2,. . • ,ARG14,  ARG15) 
where  ARG1  =  ARCS  =  ?NL(l) 

ARG2  =  4*  ARG9  =  Y^l) 

ARG3  *  A 4*  ARG10  =  1^(1) 

AitG4  =  ARG11  =  Y^l) 

ARG5  =  ?(1)  ARG12  =  0^(1) 

ARG6  -  Y*(l)  ARG13  =  A*(l) 

ARC?  =  Y*(l)  ARG14  =  RADIO 

ARG15  =  Variable  name  where  K  is  to  be  stored. 

This  routine  is  designed  for  use  with  the  "CTLS1"  control  system.  An 
initial  set  of  step  size  coefficients  (K^,  Ky*>  •••>  Ky  )  is  generated  from 
the  given  data.  This  initial  set  of  coefficients  is  used  to  control  the  cal¬ 
culation  of  a  "new"  set  of  step  size  coefficients.  (K1^,  K'^,  . K'n). 

The  "best"  value  (K)  is  then  calculated  from  the  new  set  of  coefficients 
and  an  exit  is  made  from  the  subroutine. 


The  values  (K  K_*,  kJJ,  . . . ,  K  *)  are  re-arranged  into  descending  order 

(Kp  Kg,  . ..,  Kn+^f.  The  value  K-^  musvoe  such  that  .5  £  K^. 

If  this  condition  is  not  net,  then  the  “best"  value  (K)  is  defined  to  be 
.5  and  an  exit  is  made  from  the  subroutine. 

If  this  condition  is  met,  then  a  logic  scheme  is  applied  to  calculate  a 
nev  set-  of  coefficients. 


The  new  set  of  stop  size  coefficients  (K'^,  K'g,  ...»  K'n)  is  calculated 
as  follows: 


Tolerance 

check  (only  for  Y^  constraints) 

GIVEN 

H- 

It 

THEN 

-  I’l  -»i|. 

where  iBl,  2,  ...,  n. 

GIVEIi 

Yi»  TERi; 

THEN 

If  I’ll  s  TEp.i>T..t  K,! 

if  K-^  =  K-^,  then  proceed  to  next  : 

and  (d); 

where  i  =  1,  2,  ...»  n 

End  point  movement  (only  for  Y^  .  *>straints) 

-  * 

GIVEN 

T1.  »i.  ’fwd,.  W  V 

THEN 

if  i  sO, 


rMOTi 


ATj  \  (Tj  -  Yj)  *1*%,  CTj  ; 


A? 


otherwise, 

Tm.  -  I  (?i  -  Tt)  \  |  ■ 

4  1I/YT  ^  « 

A?i 


rM0Tj 

where  i  =  1,  2,  . . . ,  n. 

c)  Calc  roots  K^,  K^'  (only  for  Y^  constraints) 
GIVEN 


* 

V 


AT,  >  ATi»  Tj^qt  » 
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THEN 


(K-  K" • )  =  -MC.JjHtl 

i*  i  2A 

where  A  =  (AY^  -  AY^), 

E  =  AYt> 

C  ”  ftnd  1  1|  2j  *  *  •  |  n* 

d)  Test  Kj',  K!,"  (only  for  Y^  constraints) 

For  all  i,  (i  =  1,  2,  . ..,  n),  the  value  of  K|  must  be  chosen  such 
that  K*  =  least  positive  value  and  such  that  lt|  £  KJ j,  where  K’  =  K^. 
If  (K” ,  K V 1 )  <0,  then  no  new  value  is  computed. 

The  "best.'  value  (K)  then  is  defined  as  .5  s  s  2.0;  and  an  exit  is  made 
from  the  subrcu^ine. 

(*) 

It  should  be  noted  tliat  recycling  occurs  if  the  Yj  constraint  error  is 
within  the  prescribed  tolerance  (Ygn  )  and  the  controlling  step  size  coefficient 
(K-^)  is  Ky*.  At  the  end  of  (d)  the  controlling  step  size  coefficient  is  changed 
to  (K2,  K3,  ...,  Kq+^)  and  the  cycle  restarted  at  (a).  If  recycling  is  necessary 
tY  present  "beat"  value  (K'  =_K . )  is_saved  and  £he  recalculated  "best"  value 
(».u  =  ^£+i)  130  3uch  that  K 

wiicr©  fj  1  j  2$  •  •  •  f  XI* 

If  all  constraint  errors  are  within  the  prescribed  tolerances,  then  i- 
chosen  to  be  the  "best"  value  (K)  and  an  exit  is  made  from  the  subroutine. 

(**), 

If  -  UA.C  <  0,  then  no  K£  and  K£'is  computed. 

Remarks 

KCALC  is  called  by  CTIS1. 

KCALC  calls  DEF  and  LINES. 
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8. 


Purpose: 

To  invert  the  I  matrix. 
Usage: 


CALL  INVERT 

From  theoretical  considerations,  should  be  symmetric.  If  a  column 

(row)  of  is  zero  and  the  corresponding  row  (column)  is  non-zero, 
the  program  is  terminated.  If  a  column  and  corresponding  row  are 
bothP zero,  they  are  eliminated  from  the  matrix.  The  resulting  matrix 
is  inverted  and  any  zero  rows  or  columns  are  inserted  into  the  inverse. 
1^^  is  post-multiplied  by  as  a  check. 

Remarks: 


CTLS1  and  UFDK  call  INVERT. 
INVERT  calls  MATINV  and  STOP. 
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SNVERT  (2) 

© 


© 
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INVERT  (4) 


- (continue) 


f001M<  I  :  1,  INDPMT ) 


/continue) 
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9.  DECIDE  -  Driver  for  Decision  Routines 


Purpose 

To  allow  the  user  t.o  select  the  decision  subprogram  which  will  be  used 
with  CTI.52  in  the  optimization  program. 

Usage 

CALL  DECIDE  (IENTRY) 

IENTRY  =  indicator  which  determines  what  decision  must  bo  made  by  the 
decision  subprogram. 

1NDSEL  is  of  the  form  iOj.  The  decision  subprogram  is  determined  by  i. 
If  i  =  3>  DECID3  is  used.  If  i  =*  2,  DECID2  is  called.  DECID2  is  currently 
a  dummy  routine.  INDSEL  is  nominally  101.  j  determines  which  set  of  dif¬ 
ferential  equations  will  be  used. 
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10.  OFFSW  -  Display  Drop 
Purpose : 

To  drop  the  on-line  display  from  the  console. 

USM§.; 

Type  "DROP"  at  console. 

Remark : 

This  is  a  sptcial-purpose  ASCENT  routine.  No  flow  chart  is 
included. 
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11.  TLUU  -  Tvo  Dimensional  Table  Look-Up  Routine 
Purpose 

Given  an  argument  X,  to  compute  Y  -  f(X)  from  a  table  of  X  and  Y  values 
by  linear  interpolation. 

Method 

Same  as  for  TLU. 

Uaa&? 

Same  as  for  TLU. 

Remarks 

This  subroutine  is  the  same  as  TLU  except  the  table  is  not  given  as  a 
common  subscript. 
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12.  UNBLOCK  -  Unblocking  Routine  for  A's 


Purpose: 

To  read  and  decode  the  blocked  tape  (ILTAP)  that  has  been  prepared 
in  chain  REV. 

Method: 

The  values  for  the  A  change  in  the  mode  shape  of  a's  have  been  stored 
in  a  large  array  to  decrease  the  number  of  times  an  I/O  device  is 
selected. 

Usage: 

Entry  is  made  to  the  routine  by  the  statement: 

CALL  UNBLOCK  (PHOLGW,  TIMES,  NERJMMY,  INDFMT,  MCONT,  PSOLGW, 

ALPHC,  W2,  ILTAP) 

where: 


rrtOLGW 

— 

Mode  shape  change  values 

TIMES 

= 

Time  from  beginning  stage 

NDUMMY 

= 

Control  word 

MCOUNT 

= 

Number  of  control  variables 

INDTOT 

= 

Number  of  end  and  point  constraints 

PSOLGW 

= 

Mode  shape  change  values 

ALPHC 

= 

a's  from  previous  valid  step. 

W2 

= 

Weighting  Matrix  elements 

ILTAP 

= 

I/O  device- 

No  initialization  is  necessary  outside  this  routine  and  no  output 
occurs  from  this  routine.  Only  the  normal  I/O  FORTRAN  routines  are 
called. 
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13.  SUMOLA  -  Linear  Combination  Routine  for  A  'a 
Purpose: 

To  compute  linear  combinations  of  sensitivities. 


Uoage: 


CALL  SUMOLA  (PHISEJJ,  PSISEN,  C,  NPSI,  NVAR) 


PHISEN 

PSISEN 


NPSI 

NVAR 

PHISEN, 


the  linear  combination  to  bo  computed. 

the  component  sensitivities  which  are  to 
be  combined. 

weights  to  be  applied  to  component 
sensitivities. 

number  of  components 

length  of  each  component  array. 

NPSI 

TVITPOl, 


PSISEN i 


i  =  1,  NVAR 


Remarks: 

This  routine  is  used  with  the  "CTLS2"  control  system. 


* 
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SUMO  LA 
BEGIN 

\  , 

{DO  IS  I'l.NVAR) 

\ 

PHISEN(  D  =  G 

I 

(DO  10 j  I.NPSi) 

T 

PHISENU)  r 

PHlSENin+PS ISEN ( J, I)  ~ 

1 


1 


CONTINUE) 


PLOT  -  Point  Plot  Subroutine 


A  point  plot  subroutine  written  by  Mary  Huff  of  McDonnell  Automation 
Center  in  December  19&5. 

Purpose: 

To  plot  £.  graph  of  one  or  more  curves  from  given  sets  of  rectangular 
coordinates  usirg  a  minimum  of  storage 

Method: 

To  avoid  overlapping  characters,  the  printer  limits  the  characters  which 
can  he  printed  on  the  plot  to  109  per  line  and  51  per  column.  To  plot 
a  curve,  it  is  therefore  necessary  for  the  routine  to  divic'e  each  page 
of  the  plot  into  109  intervals  in  the  X  direction  and  51  intervals  in 
the  Y  direction.  The  width  of  the  X  intervals,  called  A  X,  is  then 
PXMAX  -  PXMIN  where  PXMAX  and  PXMIN  ar?  the  maximum  anti  minimum  X  values 
108 

which  can  be  plotted  on  that  page.  If  a  search  of  the  X  coordinates  of 
the  curves  to  be  plotted  then  shows  an  X  value  falling  within  the  range 
of  the  n-th  interval,  that  is  PXMIN  -  AX  +  (n-l)  AX  <  X  <  PXMIN  +  A_X 

2  2 

+  (n-l) AX,  then  a  point  will  be  plotted  in  the  column  representing  the 
n-th  interval.  The  routine  allows  for  a  multipage  option  in  which  the  Y 
axis  remains  constant  but  the  X  axis  varies  from  XMIN  to  XMAX  over  a 
range  of  several  pages.  The  number  of  pages  will  equal  XRANGE  where  X RANGE 

PRANGE 

is  the  range  of  X  values  over  all  the  curves  or  XMAX  -  XMIN  and  PRANGE  is 
the  range  of  X  values  which  could  be  plotted  on  a  single  page  or  A  X  •  108. 
The  maximum  X  value  on  one  page  will  become  the  minimum  X  value  on  the 
eucceeding  page  until  XMAX  is  reached.  A  X,  which  is  needed  to  determine 
PXMAX  for  each  page,  must  be  determined  before  the  plot  is  attempted.  It 
may  be  supplied  to  the  routine  by  the  user  cr  left  to  the  routine  to  cal¬ 
culate  before  plotting  the  curves .  If  A  X  is  left  to  the  subroutine  to 
calculate,  a  search  of  the  curves  to  be  plotted  will  find  AX  to  be  the 
minimum  distance  between  any  two  points  on  any  curve  in  the  X  direction. 

If  the  multipage  option  wa3  specified,  then  A  X  is  accepted  as  calculated 
by  the  routine  or  as-  specified  by  the  user,  and  the  number  of  pages  will 
be  XRANGE.  If  the  single  page  option  was  specified,  and  A  X  =  XMAX-XMIN. 

PRANGE  108 

then  A  X  is  accepted  as  specified  or  calculated,  otherwise  A  X  is  set  to 
XMAX-XMIN  to  allow  the  full  range  of  X  values  to  fit  on  exactly  a  single 
108 

page.  In  order  to  plot  a  graph  of  leas  than  one  page,  the  multipage 
option  must  be  specified,  even  if  AX  is  specified. 

The  log  of  y  is  plotted  if  the  semilog  option  is  used,  and  the  log  of  X 
and  Y  if  the  log-log  option  is  used.  If  the  value  for  which  the  log  is  to 
be  plotted  is  negative,  the  log  of  the  positive  value  will  be  plotted,  but 
an  N  will  replace  the  specified  character  for  that  point  on  the  curve.  The 


log  of  zero  will  not  be  attempted,  but  the  zero  will  be  plotted  with  the 
character  N. 

Any  number  of  curves  may  be  plotted  on  ths  same  graph.  The  X  coordinates 
of  each  curve  must  be  stored  as  one  column  of  the  two  dimensional  X  array 
and  Y  coordinates  of  the  curve  as  the  corresponding  column  of  the  Y  array. 
The  points  need  not  be  ordered,  but  the  X  and  Y  coordinates  of  a  point 
must  be  at  corresponding  positions  in  their  respective  columns.  The 
curves  may  be  distinguished  from  each  other  by  designating  different  plot¬ 
ting  symbols.  Any  Hollerith  Character  may  be  used;  however,  the  subroutine 
uses  a  plus  sign  for  the  border,  a  minus  and  an  I  for  axes,  and  an  N  for 
attempting  the  log  of  a  negative  or  zero  number.  If  a  point  is  cannon  to 
more  than  one  curv*.,  the  symbol  of  the  last  curve  plotted  will  be  shown. 

The  subroutine  will  eject  a  page  and  print  he  title  specified  by  the 
user  at  the  top  of  each  page  of  the  plot.  The  border  option  will  outline 
each  page  of  the  graph  with  +  signs.  The  axis  option  will  print  the  X  and 

Y  axes  (plot  the  curves  Y  =  0  and  X  =*  0).  The  X  scale  is  printed  at  2" 
intervals  and  the  Y  scale  at  1"  intervals. 

Usage: 

The  routine  is  entered  by  the  Y)RTRAN  statement 
CALL  PLOT(X,Y,M,A,IC,B,MP  LL, XDELT , TITLE , IEK) 

where 

X  is  the  name  of  a  2  dimensional  array  containing  the  X  coordinates  of  all 
the  curves  to  be  plotted.  The  X  coordinates  of  the  n-th  curve,  for  example 
are  stored  from  X(l,n)  to  X(m,n)  where  m  is  the  number  of  points  in  the 
curve. 

Y  ha3  the  same  dimensions  as  X  and  contains  the  Y  coordinates  of  the  curves 

M  and  A  are  the  names  of  one  dimensional  arrays  set  up  by  the  user.  K(n) 
is  the  number  of  points  in  the  n-th  curve,  wbcse  first  point  is  at  X  (l,  n) 

and  Y(l,n).  A(N)  is  the  character — left-ad jurted  in  a  4  byte  word - to 

be  used  in  plotting  the  n-th  curve. 

IC  is  the  number  of  curves  to  be  plotted  and  must  be  less  than  or  equal 
tc  the  second  dimension  specified  for  the  X  and  Y  arrays  in  their  DIMENSION 
statement . 

B=1  no  border,  no  axis 

2  border,  no  axis 

3  no  border,  X  axis  only 

4  border,  X  axis  only 

5  no  border,  Y  axis  only 

6  border.  Y  axis  only 

7  no  border,  both  axes 

8  border,  both  axes 


393 


I 


I 


MP  =  =0  single  page  plot  df  sired 

1  multiple  page  or  fraction  of  •'age  plot  desired 

LL  =1  plot  given  points 

2  semilog  (plot  logs  of  T  coordinates) 

3  log-log  (plot  lo/,t  of  X  and  Y  coordinates) 

XDELT  =  0  indicates  A  X  is  u  t  e  calculated 

Otherwise  specify  A  X  in  'loating  point 

TITLE  is  the  name  of  the  array  in  which  tie  title  to  head  each  page 
is  stored.  Only  one  line  may  be  printed.  The  array  must  be 
at  least  30  four  byte  words  in  length.  Any  words  in  excess  of 
30  will  not  be  printed. 

IDM  is  the  first  dimension  specified  for  the  X  and  Y  arrays  in  their 
DIMENSION  statement.  Tt  must  be  st  least  equal  to  the  number  of 
points  in  the  curve  which  has  the  greatest  number  of  points  of 
the  curves  to  be  plotted. 
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15.  MATINV  -  Matrix  Inversion  Routine 


Purpose: 

FORTRAN  subroutine  solves  the  matrix  equation  AX  =  B,  where  A  is  a  square 
coefficient  matrix  and  B  is  a  matrix  of  constant  vectors.  A"1  is  also 
obtained;  indeed,  inversion  may  be  the  sole  aim  in  a  particular  usage. 
Finally,  the  determinant  of  A  is  available. 

Method : 

Jordan's  method  is  used  to  reduce  a  matrix  A  to  the  identity  matrix  I 
through  a  succession  of  elementary  transformations;  Ji  n  _^n_i . . .  ,£c  A  “  I. 
If  these  transformations  are  simultaneously  applied  to  I  and  to  a  * 
matrix  B  of  constant  vectors,  the  result  in  A-1  and  X  where  AX  *  B. 

Usage: 

Entrance  is  made  via  the  FORTRAN  statement  in  the  calling  program: 

CALL  MATINV  N,  B,  M,  DETEEM) 

where  1)  N  is  the  order  of  A;  N  >  1. 

2)  M  is  the  number  of  column  vectors  in  B. 

3)  DETERM  is  the  location  in  which  the  determinant  is  to  be 
placed. 

Suitable  variable  names  may  replace  the  dummy  variables  listed  above. 

At  the  return  to  the  calling  program,  A"^  is  stored  at  A  and  X  at  B. 

M  =  0  or  negative  signals  that  the  routine  is  to  be  used  solely  for 
inversion;  note,  however,  that  in  the  CALL  statement  an  entry  corres¬ 
ponding  to  B  must  still  be  present. 
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16 .  DECIDE  -  Step  Size  Routine  for  Control  Srsirag 


Puree  se 


To  determine  when  to  accept  a  pass  as  a  valid  step,  wher  to  compute 
partials,  the  3tep  size  to  use  on  the  next  trial  and  to  invert  the  1^ 
matrix  and  make  other  decisions  to  determine  the  So  mode  shape. 

&&£§. 

CALL  DECID3  (IENTRT,  D2,D3,D4,D5,D6,D7,De,D9,DPHI,DB,DK,DE,DF,DG, 

INDAMP, INDBAL, ITBAL) 

CTl£2,  DECID3,  UPDK,  and  SUMO LA  form  a  control  system  referred  to  in  the 
formulation  as  "CTLS2".  To  select  this  control  system  input  1NDSEL  of  iOj  (301). 

Tasks  are  performed  at  each  entry  point  as  follows: 


IENTRT  =  1 

IENTRT  =  2 
IENTRT  =  3 

IENTRT  =  L 


IENTRT  -  5 
IENTRT  =  6 

IENTRT  =  7 


is  called  when  20  or  more  passes  have  occurred  on  a  cycle. 

The  program  is  terminated. 

is  called  for  nominal  initialization. 

is  called  when  a  trial  missed  cutoff  and  computed  partials. 

The  step  size  is  noted  as  a  bad  step.  Phrtials  are  turned 
off  and  the  next  trial  step  size  is  set  to  one-half  the  current 
step  size. 

is  called  after  a  successful  trial  is  made  with  partials  on. 

A  parabolic  prediction  is  performed.  If  a  gain  was  made  on 
the  trial  and  the  predicted  percentage  goin  for  another  trial 
is  less  than  25%  Tor  another  trial,  the  step  is  accepted.  If 
a  gain  was  made  but  the  predicted  percentage  gain  for  another 
trial  is  25%  the  step  is  not  accepted  immediately.  Tests  to 
limit  the  number  of  passes  are  applied  if  the  step  is  not 
immediately  accepted  or  no  gain  was  made  and  trial  may  be 
accepted  if  a  gain  was  made  or  a  new  step  size  may  be  deter¬ 
mined  for  another  trial  with  partials  taken. 

is  called  for  output  of  restart  cards.  None  are  output. 

is  called  when  a  trial  missed  cutoff  and  did  not  compute 
partials.  The  same  action  as  IENTRT  =  3  is  taken. 


is  called  after  a  successful  trial  is  made  with  partials  off. 

A  parabolic  prediction  is  performed.  If  a  gain  was  made  on  the 
trial  and  the  predicted  percentage  gain  for  another  trial  is  less 
than.  5%  partials  will  be  taken  the  next  trial .  Teste  to  limit 
the  number  of  passes  are  applied.  These  tests  may  turn  on  partials 
if  a  good  step  is  available  but  no  gain  was  made  in  t  he  previous 
trial.  A  new  step  size  for  another  trial  is  determined. 


1*00 


IENTRY  -  8  i;  called  for  initialization  each  cycle. 

IENTRY  =  9  '■  s  called  tc  make  decisions  for  the  in  mode  shape.  If  step 

size  is  too  small  the  program  is  terminated. 


IENTRY  =  10  is  called  to  set  INDCON  for  CTLS2  after  a  trial.  INDCON  is 
set  to  zero. 


IENTR1  =  11  is  called  after  DA1CAL  is  confuted  following  the  reverse 
integration.  The  only  action  is  a  RETURN. 

IENTRY  =12  is  called  when  DENOM  is  not  positive.  The  pro, gram  is  term¬ 
inated  . 

IENTRY  =  13  is  called  to  set  INDCON,  invert  the  I_  matrix,  and  update 
parameters  for  in  calculation  after  the  reverse  integration. 
INDCON  is  set  to  zero  and  UPEK  is  called  to  calculate  para¬ 
meters  for  ia  calculation  and  to  invert  the  Iyj  matrix. 


After  each  trial  trajectory,  a  point  is  generated  on  the  graph  of  change 
in  payoff  (Aq>)  vs.  step  size,  unless  cutoff  was  missed.  A  point  with  positive 
Sm  is  called  a  good  point  and  the  step  size  is  celled  a  good  step.  A  point 
th  negative  Acp  is  called  a  bad  point  and  the  step  size  is  called  a  bad  step. 
The  step  size  on  a  trial  trajectory  which  misses  cutoff  is  also  called  a  bad 
step . 


From  the  theoretical  considerations  the  graph  of  Aq>  vs.  step  size  must 
rise  to  a  peak  from  the  origin  and  fall  off.  Our  objective  is  tc  arrive  at  a 
good  point  with  step  size  as  close  to  this  peak  as  possible.  Vfe  attempt  to 
do  this  by  a  parabolic  search  procedure. 

After  each  trial  trajectory  which  has  missed  cutoff,  partial m  are  turned 
off  and  another  trial  will  be  made  with  step  size  l/2  the  last  trial  step. 

After  each  trial  trajectory  which  has  not  missed  cutoff,  a  parabolic  fit 
is  roade  to  the  last  trial  point  and  any  previous  good  points.  I:’  no  previous 
good  points  are  available,  the  fit  is  made  to  the  origin,  the  la.it  trial  point, 
and  the  slope  at  the  origin.  If  only  one  previous  good  point  is  available  the 
fit  is  made  to  the  origin,  the  previous  good  point,  and  the  last  trial  point. 

If  two  previous  good  points  are  available,  one  lying  on  either  s  .de  of  the  last 
trial  point,  the  fit  is  made  to  those  three  points.  If  two  such  good  points 
are  not  available,  but  two  good  points  have  been  found  which  lie  on  one  side 
of  the  last  trial  point,  the  fit  is  made  to  those  three  points. 

After  the  fit  has  been  made,  a  preliminary  step  size  to  use  for  another 
trial  pass  is  determined.  If  the  parabola  is  not  concave  downward  the  pre- 
limii  ary  step  will  be  the  smaller  of  5  times  the  last  trial  step  and  9/l0  the 
jrvallest  previous  bad  step.  If  the  parabola  is  concave  downward,  the  step 
e  is  set  to  the  larger  of  l/lO  the  last  trial  step  and  the  smallest  of  5 
i  the  last  trial  step  size  coordinate  of  the  maximum  point  on  .he  parabola, 
arl  9/  ■  the  smallest  previous  bad  step. 


If  less  than  10  passes  have  been  mads  and  the  last  trial  step  hal  positive 
dtp,  the  parabolic  fit  and  the  preliminary  step  size  am  used  to  find  the  pre- 
dlcted  change  In  payoff  from  the  parabola.  If  partials  were  taken  and  the  pre¬ 
dicted  gain  is  less  than  25£  the  last  trial  is  accepted  as  a  valid  step.  Tf 
partials  were  not  take:i  and  the  predicted  gain  is  less  than  5%  partials  are 
turned  on  and  another  trial  trajectory  is  made  using  the  preliminary  step  size. 

If  10  passes  have  been  made  and  the  peak  has  net  been  found  the  last  step 
will  be  taken  if  it  is  a  good  step  and  partials  were  taken.  If  it  was  a  bad 
step,  the  program  will  go  to  the  best  good  step  size  so  far,  take  another  p&sa 
with  partials  on  and  accapt  that  pass.  If  no  trial  ao  far  has  produced  a  goo^ 
step,  the  step  size  is  halved  and  a  trial  made.  Halving  will  continue  until 
a  good  etep  is  found  or  15  passes  have  been  made  and  the  program  terminates. 

If  a  good  step  iu  found  one  more  pass  at  that  step  size  will  be  made  with 
partials  on  and  that  pass  will  be  accepted. 

Remarks 

DECID3  is  called  only  by  DECIDE  which  in  turn  is  called  only  by  CTLS2. 

DECID3  caHs  UPDK,  WNOHM,  and  STOP. 


BEGIN 


DEC  I D  3 


(1) 


U03 


DECID3 


(2) 


*i,  »  nwrr<^«  OFH'T^ 

slr  •pthi  n*yxytig.X>JL 

»  »  SLl  ~SkR- 

OXl«-DXR 

B  sstR  -  A  .<WLrrtt>«-OtlPT<J)& 

C  »ORHIT(R)  -  f  A  •  ORURT6U +B  >  DEL  n(a)  ) 


CONTINUE) 


17*  PSSIPSLz  Ajftlfrranr .  Dpsig;i?fl.. Ffutens. 

This  is  a  duany  routine  incluietl  so  the  user  may  write  his  own  decision 
subprogram  to  be  u*sed  with  CTLS2  in  t'.ja  optimization  program. 

Such  a  routine  must  adhere  to  the  entry  poin  pattern  established  by 
CTLS2  and  make  those  decisions  assigned  to  it  by  C..LS2. 
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18.  PACK  -  Integer  Word  Conversion  Routine 
Purpose : 

To  insert  the  character  to  be  plotted  into  the  correct  position  in  an 
integer  type  word. 

Method : 

PACK  uses  DECODE  to  break  a  word  into  4  words,  each  containing  one  character. 
The  (lP0S+l)th  word  is  then  set  equal  to  CHAR  and  ENCODE  is  used  to  place  the  4 
characters  back  into  the  word. 

Usage : 

CALL  PACK (WORD,  CHAR,  IPOS) 


where 


W)RD  =  the  word  in  which  the  character  is  to  be  placed 

CHAR  —  the  Hollerith  character  to  be  inserted  into  WORD 

IPOS  =  one  les3  than  the  position  in  WORD  into  which  CHAR  will  be 
inserted 

Subroutines  Called: 

System  functions  ENCODE  and  DECODE. 


19.  WNOHH  - 


Norm  Calculation 


Purpose : 

To  compite  the  current  weighting  matrix  norm  when  using  OPTION  5. 
Usage: 


CALL  WORM  (WNEW) 


1 

MCONT 

f° 

INDIOP 

VJNEW  = 

i  £ 

i  =  1 

(Wi,!'1)2  dt 

J  t 

+  £  <uJ'l)2 

3  -  1 

MCONT  =  number  of  control  variables 

IND10P  =  number  of  initial  control  variables 

T  =  terminal  trajectory  time 
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20.  UPDK  -  Convergence  Control  Routine 


Purpose 

To  determine  when  and  how  to  tighten  constraint  be]t3,  and  to  perform 
the  tightening;  to  test  for  convergence  of  the  optimization  process,  and  termin¬ 
ate  the  program  if  convergence  is  obtained,  and  t'  recompute  I  ,  cp*,  and  the 
coefficients  for  the  augmented  payoff  function.  ™ 

Usage 

CALL  UPDK 

CTLS2,  DECID3,  UPDK,  and  3UMQLA  are  the  routines  which  implement  the  control 
system  referred  to  as  "CTL32"  in  the  formulation. 

This  routine  makes  those  decisions  which  have  most  effect  on  the  conver¬ 
gence  of  the  optimization  process  unaer  "CTLS2". 

The  philosophy  of  the  routine  is  given  in  the  formulation  manual.  The 
procedure  by  which  SIERR  is  reduced  is  referred  to  as  belt  tightening.  The 
logic  of  the  routine  is  given  in  the  accompanying  explanatory  flowchart. 

A  tool  for  investigating  the  convergence  effects  of  decisions  other  than 
'.nose  made  by  the  normal  logic  of  this  routine  is  provided.  This  tool  i3 
referred  to  as  "Analyst  Control."  Using  this  option,  all  decisions  on 
tightening  and  phase  selection  are  superseded  by  data  inputs  which  completely 
pre-detennine  when  and  how  tightening  is  done  and  what  phase  will  be  entered. 

This  is  not  intended  for  normal  use. 

The  normal  logic  is  referred  to  as  "Program  Control".  Certain  parameters 
used  by  this  option  may  be  modified  by  data.  Modification  by  data  is  rot 
recommended. 

Parameters  for  UPDK  and  their  effect  on  tightening  and  phase  selections 
are  listed  under  the  two  options.  These  parameters  may  be  set  to  values  other 
than  the  nominal  by  input  data. 

See  routine  PENAL  for  a  description  of  the  augmented  payoff  function  used 
by  this  routine. 


til 


Analyst  Control 


Parana ter 
INDI’T 

Bi  t  CYC 

INTPH7 

ITIT 

TTIT 


TDUN 

TINT 

TMOD 


Nominal  Effect 

0  0  selects  program  control 

1  selects  analyst  control 

For  Analyst  Control  Input  A  Value  of  1 

All  1000  When  NCYCLE  =  \  INTCYC(J )  \  where  8, 

belts  will  he  tightened.  INTCIC  is  an  array  of 
eight  values. 

All  0  INTPHZ(j)  is  the  phase  to  be  entered  after  belt 

tightening  when  NCYCLE  =  |  INTCYC( J ) |  where 
1  s  J  s  8.  INTPHZ  is  an  array  of  eight  values. 

0  If  ITIT  >  0  and  NCYCLE  =  (iNTCYC(J)i  ,  wherr 

1  s  J  s  8,  and  INTCYC(J)  >  0,  INTCYC(J)  will 
be  replaced  by  INTCYC(J)  +  ITIT  after  belt 
tightening. 

0  Basic  bait  tightening  factor.  When  belt3  are  to 

be  tightened,  all  are  multiplied  by  TTIT.  If  all 
constraint  errors  are  still  within  their  respective 
belts, the  belts  are  again  multiplied  by  TTIT.  This 
continues  until  at  least  one  error  is  outside  its 
belt.  Then  all  belts  less  than  1/2  their  respective 
tolerances  are  increased  to  1/2  those  tolerances. 

After  belt  tightening,  if  TTIT  is  C.,  it  is  set  to 
.1.  TTIT  may  be  modified  before  tightening  by  TINT 
and  TDUN. 

0.  If  NCYCIE  =  I  INTCYC(J)  |  where  1  s  J  s  3,  and 

INTCYC(J)  <  0,  TTIT  is  multiplied  by  TDUN  before 
belt  tightening.  Total  tightening  modification 
factor. 

AL1  1.  Partial  tightening  modification  factor.  If  NCYCLE  = 

|  INTCYC(J)  |  where  lsJsS,  and  INTCYC(J)  >  0,  TTIT 
is  multiplied  by  TINT(J)  before  belt  tightening.  TINT 
is  an  array  of  eight  values.  TINT  may  be  modified  by 
TMOD. 

0.  If  NCYCLE  =  IlNTCYC(J)  |  where  1  s  J  s  8  and  INTCYC(j) 

>  0  and  ITIT  >  0,  TINT(J)  is  replaced  by  TINT(J)-TMOD 
after  belt  tightening. 


1+12 


Program  Control 


Parameter 

Nominal 

Effect 

INDINT 

0 

0  selects  program  control 

1  selects  analyst  control 

INTEX 

3 

The  ratios: 

#  *  — * 

'P  -  ^INTEX  ,  .  Vi  -  'PINTEX 

-*  a™  '  ,  i  =  1,  INTEX-1 

9  9 

INTEX  INTEX 

are  checked  against  TTOL  for  tightening  of  belts. 

twl 

.005 

If  all  ratios  specified  by  INTEX  are  less  than  or 
equal  to  TTOL  and  belt  tightening  has  not  been 
delayed  by  INTSTT,  a  check  will  be  made  lor  con¬ 
vergence  and  belts  will  be  tightened. 

INTSTT 

3 

Belt  tightening  i3  delayed  by  the  INTSTT  number  of 
cycles  after  leaving  phase  0  or  effecting  a  belt 
tightening. 

TTIT 

0 

Same  as  for  Analyst  Control. 

ITIT 

0 

Same  as  for  Analyst  Control. 

INTDUN 

3 

Total  tightening  cycle  indicator.  When  ITIT  = 
INTDUN,  TTIT  is  multiplied  by  TDUN  before 
tightening. 

TDUN 

0. 

Total  tightening  modification  factor  for  TTIT. 

TINT 

ALL  1. 

Same  as  for  Analyst  Control . 

INTPHZ 

All  0 

Same  as  for  Analyst  Control. 

Analyst  and  Program  Control 


Parameter 

Nominal 

Effect 

ENDCON 

All  blank 

Identifiers  for  payoff  and  constraints.  ENDCON  is  an 
array  of  ten  words.  The  first  is  the  payoff  function 
the  rest  are  constraint  functions.  MAXIM  or  MINIM 
must  be  "FNALTY" . 

SIBAR 

All  0. 

Desired  constraint  values.  SIBAR  is  an  array  of  ten 
values.  The  first  is  a  dummy. 

SITOL 

All  0. 

Allowable  constraint  erro;  .  SITOL  is  am  array  of  ten 
valuob.  The  first  is  a  dummy. 

SIERR 

All  .01 

Belt  sizes  for  constraints.  SIERR  is  an  array  of  ten 
values.  The  first  is  a  dummy.  The  rest  arc  belt 
values  for  the  constraints. 

INDTMY 

4 

Initial  phase  for  CTLS2  control  system. 

4  is  phase  0 

3  is  phase  1. 

T 

1. 

Exponent  used  in  determining  phase  1  mode  parameters. 

RATIO 

2. 

Step  size  multiplicative  change  factor  between 
successive  cycles. 

Remariti 

UPDK  is  called  by  DECID3 . 


UFDK  calls  INVERT  and  STOP. 


LOGIC  OF  UPDK 


© 


it  15 
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m 


l 
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UPDK 
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SECTION  VIII 


PROGRAM  REV 


This  program  is  the  program  for  calculating  the  solutions  to  the  adjoint 
equations.  There  is  a  striking  similarity  between  the  structure  of  the  EXE 
segment  and  the  REV  segment.  In  fact,  REV  proper  was  programmed  by  modifying 
the  same  logic  that  was  used  in  EXE. 

The  input  to  REV  comes  from  three  sources:  value  in  COMMON,  information 
on  TAPE12  ,  and  sometimes  information  on  IATAP.  The  output  from  REV  consists 
of  information  on  ILTAP  and  values  in  COMMON/2/  and  values  in  COMMON. 

Large  arrays  must  be  dealt  with  in  REV.  In  order  to  conserve  core,  it 
is  assumed  that  COMMON/l/  and  COMMON/5/  are  available  for  use. 

The  Partial  Tape 

REV  calls  the  routine  UNPART  to  read  the  partial  tape  for  everything 
except  the  P  matrix.  To  get  the  P  matrix  (if  it  exists)  at  the  beginning  of 
a  major  stage  REV  itself  reads  the  partial  tape,  (if  the  P  matrix  does  not 
•^xist,  REV  constructs  the  identity  matrix  and  puts  it  in  P).  The  reading  of 
the  partial  tape  is  the  most  critical  task  of  the  reverse  trajectory.  The 
trouble  occurs  because  the  information  that  is  put  on  it,  sequentially,  in  the 
forward  trajectory  is  needed  in  the  opposite  order  in  the  reverse  trajectory. 
This  means  that  the  partial  tape  has  to  be  read  in  the  reverse  direction  by 
backspacing,  reading,  backspacing,  etc.  The  F  and  G  matrices  are  treated  as 
functions  of  stage  time  in  the  reverse  trajectory.  The  F  and  G  stage  time 
histories  exist  on  the  partial  tape.  Since  the  table  of  F  and  G's  for  an 
entire  stage  would  be  too  large  to  accomodate  in  the  machine,  the  table  of 
F  and  G's  which  is  actually  used  to  do  the  interpolation  is  constructed  from 
the  two  adjacent  points  which  bracket  the  current  value  of  stage  time  in  the 
reverse  trajectory.  REV  is  responsible  for  updating  the  F  and  G  tables  as 
the  stage  time  changes;  it  does  this  oy  shifting  the  table  values  and  reading 
a  new  F  and  G  point  from  the  partial  tape  (via  a  call  to  UNPART)  and  putting 
the  respective  values  into  the  vacated  spots  of  the  F  and  G  tables. 

Staging  and  Time  Points  in  REV 

NT’  is  an  indicator  set  in  EXE  and  transmitted  to  REV  on  the  partial  tape. 
It  informs  EEV  when  the  end  of  a  major  stage  (ND/1}  has  been  reached  (i.e.,  the 
beginning  of  a  major  stage  in  the  forward  trajectory),  and  also  whether  a  P 
matrix  exists  on  tape  at  the  stage  point  (ND=3)  or  if  the  stage  point  corres¬ 
ponds  to  the  very  first  point  of  the  forward  trajectory  (ND=0) 

The  NPT  values  in  the  array  TIMESA  are  those  values  of  stage  time  which 
must  be  hit  during  a  stage  of  the  reverse  integration.  These  points  are 
determined  during  the  integration  of  the  forward  trajectory;  NPT  and  the 
TIMESA  array  go  out  on  the  last  record  written  on  the  partial  tape  at  the  end 
of  a  major  stage  of  the  forward  trajectory.  Hence  at  the  beginning  of  every 
major  stage  of  the  reverse  trajectory  this  array  is  read  in  from  TAPE12 
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(via  the  call  to  UNPART).  Every  stage  time  value  at  which  there  is  an  F  and 
6  matrix  on  TAPE  12  must  appear  in  the  TMESA  array.  REV  keeps  track  of  the 
next  time  point  that  must  be  hit  in  the  cell  T1MPT’.  When  TIMPT  is  hit  (i.e., 
when  TDCES=TIMPT)  this  point  is  defined  to  be  a  stage  point.  The  type  of 
stage  point  is  reflected  in  the  value  given  to  INDSTG;  this  is  done  in  the 
area  labeled  "STGTST  ROUTINE  FOR  REVERSE"  in  the  listing.  The  meaning  of  the 
respective  values  of  INDSTG  follow: 

INDSTG  -  0  not  yet  at  a  stage  point 

-  1  the  end  of  the  reverse  trajectory 
=  2  the  end  of  a  major  stage  of  the  reverse  trajectory 
=  3  the  end  of  a  miner  stage  of  the  reverse  trajectory 
(i.e.,  get  new  F  and  G) 

=  4  merely  a  time  point  (Throw  away  all  points  of  the 
TIHESA  array  not  needed  by  decrementing  NPT  by  1) 

INTERPOLATION 

Before  REV  calls  ADJEQ  (3)  to  do  the  bulk  of  the  calculation  of  the 
derivatives,  it  computes  the  instantaneous  approximation  to  the  F  and  G 
matrices  by  calls  to  the  interpolation  routine  TLUHEV.  Also  at  this  time, 

'5EV  calls  TLUHEV  to  obtain  the  approximation  to  the  instantaneous  values  of 
ne  control  variables.  (The  control  variables  are  put  on  TAPE 12  at  the 
same  time  F  and  G  are  put  on  TAPE  12).  This  method  of  preserving  the  con¬ 
trol  variables  is  not  always  exact.  An  alternate  method  which  is  better  but 
which  involves  more  effort  is  available;  it  involves  use  of  the  CRVSR  routine. 


Integration 


It  is  assumed  that  only  fixed  step  integration  is  to  be  used  in  REV. 
This  is  not  too  strong  an  assumption  since  the  density  of  points  of  the 
TIHESA  array  will  dictate  the  requirement  of  taking  relatively  small  steps. 
The  integration  step  to  be  used  in  REV  is  DELTSR.  DELTSR  is  transmitted  to 
REV  on  the  partial  tape.  Hence  DELTSR  may  appear  in  major  or  minor  stage 
data  of  EXE.  If  DELTSR  is  not  input  EXE  initializes  DELTSR  to  BELTS  at 
every  major  stage. 


Numbered  COMMON  Ua 


COMMON  /l/  is  assumed  to  be  free.  Many  of  the  large  arrays  used  in  REV 
are  in  the  COMMON  /!/  block.  COMMON/2/  is  for  the  matrices  1^,  I^, 
COMMON/ 5/  is  assumed  to  be  free  and  will  be  used  whenever  any  features  of  the 
routine  CTVSR  are  used.  The  core  requirements  of  REV  can  be  cut  down  con¬ 
siderably  if  appropriate  arrays  are  eauivalencad  to  one  another. 


The  following  is  a  list  of  seme  of  the  variables  used  in  REV  which  are 
important  and  which  may  not  be  described  elsewhere  since  they  are  not  in 
COMMON: 


ALFHC(3,6)  2  point  table  of  control  variable  values  and  the 

interpolated  values. 

PMATX(3,15,15)  2  point  table  of  F  matrix  values  and  the  interpolated 

values . 
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GMm(3,15,6) 

TIMESP(2) 

NDUMtf 


TIMESA  (500) 

NPT 

TMPT 


2  point  table  of  G  matrix  values  and  the  interpolated 
values. 

2  point  table  of  the  stage  times  for  the  above 
three  tables. 

an  indicator  which  mimics  the  indicator  ND  and  which 
is  pat  on  tane  UTAP  (by  ADJEQ(S))  and  which  serves 
the  same  purpose  in  DA1CAL  as  ND  does  in  REV. 
an  array  of  stage  time  points  which  must  be  hit. 
the  number  of  points  in  the  TIMESA  array, 
the  next  time  point  from  the  TIKESA  array  which 
must  be  hit. 
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DESIGNATES  MULTIPLE  ENTRY  POINTS 


*  •  MIXON 


i, timm  .Timrr 


1.  JTVSR  -  Control  Variably  Routine  for  RS7 


Panaoaa 

{hiring  the  reverse  trajectory,  to  obtain  what  ia  needed  from  the  informa¬ 
tion  on  IATAP  (prepared  in  DALCAL  or  MAINl). 

IfefelasA 

To  acconplish  reading  IATAP  during  the  reverse  trajectory,  it  ia  necessary 
to  request  this  in  the  data  (DATA1): 

IHDAUF  0  IATAP  is  not  read  in  EE?. 

INDAUr  1  IATAP  is  read  in  BE?  on  all  cycles  after  J.he  nominal. 

INBALF  2  IATAP  ia  first  prepared  with  all  the  information  that 

BE?  needs  from  it  (on  the  nominal)  in  MAINl.  Then 
IATAP  ia  read  in  HE?  on  every  cycle  including  the 
nominal. 

CT?SR(2)  reads  IATAP  if  it  is  needed.  If  so,  then  CT?SR(3)  co^rates  the 
,ontrol  variable  values  from  the  CTABLE  which  was  read  from  IATAP  at  CT?SR(2) 
in  the  same  manner  that  CT?S(3)  does  for  the  forward  trajectory.  One  reason 
for  requesting  that  this  be  done  is  to  preserve  the  CTABLE  at  time  points 
closer  than  those  time  points  at  which  partiala  are  confuted,  (the  CTABI15  i3 
alwava  preserved  at  those  time  points  where  partiala  are  confuted  without  the 
need  for  doing  CTVSR  calculations.)  To  request  this  optional  type  preservation 
of  CTABLE  requires  that  DELTSA  be  input  as  well  as  INDALF  (see  CT?S).  Another 
reason  for  requesting  that  IATAP  be  read  is  to  obtain  the  weighting  matrix 
table  that  was  used  on  the  previous  cycle  (this  is  needed  if  and  only  if  INDWMA 
5). 


Remarks 


CT?SR  is  to  HE?  as  CT?S  is  to  EXE. 


CTVSJt 


Afiim.  -^jgjatJBoaaUona  Routine 
Purpogft 


This  is  the  basic  subprogram  of  REV.  ADJEQ  is  to  REV  as  DIPEQ  is  to  EXE. 
ADJEQ  contains  the  equations  for  computing  the  derivatives  of  the  adjoint 
variables  at  ADJEQ(3)  and  the  transformation  of  the  adjoint  variable  across 
major  stage  points  at  ADJEQ(2).  A  description  of  tlte  notation  used  follows: 
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PSIOLA 
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FMATX 
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GMATX 

G 
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P 
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R 
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do 
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PARTPH 
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X 
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come  from  PARTS  on  TAPEL2 
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3ISII 

So0  x'1  <lrnG>'dt  - 

<+  v) 

FEFEI 

-Jr  X.n°  W’1  Si  dt  =  I 

*  i  cpo  CpQ  cpcp 

(+K  ) 

cpcp 

SIPEI 

-Jl  X.„G  W_1  (X  G)'dt  =  I 

JT  fQ  '  cpQ  TP 

(+  K-m) 

TP 

3ISIK 

X^jR  if1  (X^.)'  =  K^„ 

SIFEK 

V  U‘1  <  v>'  -  V 

FEFEX 

X  R  u_1  (X  r/  =  K 

cpQ  cpa  cpcp 

PHIOLR 

X  R  (°r  Kr?) 

CpQ  CpQ 

PSIOLR 

X^qR  (or  X^qP) 

PHOLRU 

X  R  U-1 
cpQ 

PSOLRU 

V  °"1 

ALPSI 

£  |X„0G  | dt  w  J>'dt 

ALPSI1 

0 

IX  G  or  WW 

1  ’PQ  1 

ALPHC 

cr 

VALINS 

*o 

SISII1 

-\a°  trl  <VG)' 

FEFEI1 

-X  G  W1  (X  G)' 
cpQ  CpQ 

31  FEU 

-^tP  w1  (X^p/ 

|  UMATX  U*1 

i  w  vf 1 


TIMES  t  (stage  time) 

3 

Method 


The  integrated  variables  are  initialized  to  0.  These  variables 


include  X^  X-„,  1^,  I I and  ALPSI,  This  point  of  the  reverse  trajectory 
corresponds  to  tne  last  point  of  the  forward  trajectory. 


ADJEQ(2) :  firtry  is  made  here  at  the  first  point  of  eve  nr  major  stage  of 
the  reverse  trajectoi., ;  this  point  corresponds  to  the  last  point  of  the 
corresponding  stage  of  the  forward  trajectory. 

reverse  trajectory 


+ 

r—  X  " 

X9ft“"~ 

9ft 

+ 

XfiT” 

“So 

.  + 

x — 

— ►x 

stage  j  stage  j  +  1 


forward  trajectory 


X  and  X  will,  in  general,  be  discontinuous  at  a  major  stage  point.  The 
initial  conditions  for  these  variables  at  t  he  beginning  of  the  new  stage 
(x i,  XyS)  are  expressed  in  terms  of  their  values  at  the  end  of  the  last  stage 

(JuL,  xvq)  311(1  the  values  x,  q,  ^2,  ^8,  and  P  which  have  been  computed  at 

"r"  ”  bX  SX  SX 

the  corresponding  stage  point  of  the  forward  trajectory  and  have  been  trans¬ 
mitted  on  tape  to  the  REV  segment.  The  transformation  is: 


X  =  X  ~Pf  32  _ 

\pa  Npo  ax 


at 

ax 


L  6 

[  i  +  Xya** 

L  6 


an 

ax 

an 

ax 


ADJEQ(3): 
are  computed, 
put  on  tape  at 


At  this  entry  point  the  derivatives 
In  the  process,  X.  G  and  X  GW“^ 
ADJEQ(8).  *Q  TO 


of  the  integrated  variables 
are  computed;  these  will  be 


ADJEQ(4):  This  is  entered  at  the  beginning  of  every  major  stage,  after 
ADJEQ(2)  has  been  called.  At  this  entry  point  values  of  PHJUMP  and  PSJUMP  are 
output.  These  had  been  computed  in  the  process  of  making  the  transformation  at 
ADJEQ(2). 


ADJEQ(5):  Not  used . 

AiVJEQ(6):  Code  printing  and  value  printing  are  done  for  the  following 

variables:  X  .  X  ,  X  G,  X  G.  If  the  end  of  the  trajectory  is  at  hand, 
9”  Yft  ipfl  fQ 

then  code  and  value  printing  are  done  also  for  the  following  variables  :  I  , 
I^p,  ITY,  and  X^,  X^,  K^,  K^,  (if  they  have  beer  computed).  W 


ADJEQ(7) :  This  entry  poir.t  defines  the  variables  that  are  to  be  integrated 
(see  ADJEQ(l)). 


ADJEQ(3):  This  entry  point  is  called  immediately  after  each  integration 
step.  The  purpose  is  to  put  X^G  VT*  and  Xy^VT^-,  W^-,  tg,  and  a  on  tape  ILTAP 

sc  that  the  information  may  be  used  later  on  to  compute  the  perturbation  to 
make  to  the  a  history.  In  addition,  il  it  is  the  last  point  of  the  reverse 
trajectory  (corresponds  to  first  point  cf  forward  trajectory),  and  if  initial 
conditions  are  being  perturbed,  then  X^R,  X^^R,  X^^l  U“^,  X^R  U”l,  K^,  K^, 

Kyy  are  confuted.  The  K's  are  added  to  the  corresponding  I's  then  X,  -^R  U”\ 
XVi>RU~X  and  XQ  are  put  on  ILTAP.  Except  for  the  last  record,  ILTAP  Is  prepared 
by  "calling  the  ad-hoc  blocking  routine  DALPACK. 

Rg marks 

1.  Any  confutations  pertaining  to  the  T  functions  will  not  te  done  if 
IHDPMT  =  0.  INDFMT  is  the  number  of  Y  -  components  in  the  various  vectors  and 
matrices  e.g.,  X.^,  Iyy,  etc.  (The  Y-functions  are  those  variables  listed  in 
the  ENDCON  array). 

2.  Computations  for  initial  condition  perturbation  e.g.  X^j^R,  X^,  Ky^, 
etc.  are  not  done  if  INDICP  =  0. 

3.  It  is  assumed  that  MCONT  >  0;  i.e.  there  is  at  least  one  control 
. „ riable . 


4.  Toe  information  that  AEXTEQ  needs  from  PARTS  is  available  when  ADJEQ 
is  called.  REV  proper  sees  to  it  that  the  partial  tape  is  read  when  it  is 
needed.  There  is  one  exception  to  this:  ADJEQ(8)  reads  the  partial  tape  to 
obtain  the  R  matrix  (if  it  is  needed). 


ADJEQ  (1) 


WRITE  ILTAP 


A+0  G  .  t.  ,  NDUMMY 
G  °  •  W,° 

(VIA  ROCKING  ROUTINE 

dal  pack  ) 


RETURN 


UNPART  -  Unblocl 


Routine  for  Partials 


Purpose: 

To  unpack  TAPE12  which  has  been  packed  in  large  arrays  to  eliminate 
unnecessary  I/O  device  selection. 

Method : 

TAPE12  has  been  prepared  in  chain  EXE.  The  records  only  contain  non¬ 
zero  from  the  output  values  in  chain  EXE. 

Usage : 

Entry  is  made  to  the  routine  with  the  following  statement: 

CALL  UNPART  (MCONT,NSTATE,IFM,I®{,IT.ND,IALP,IDEL,  IWA,IWAI, 

ctabub^ndpmt  ,ipartps  ,ik  ,ientry) 


MCONT 

= 

Number  of  control  variables. 

NSTATE 

=: 

Number  of  state  variables. 

IFM  = 

= 

F  from  chain  EXE. 

IGM 

= 

G  from  chain  EXE. 

IT 

= 

Time. 

ND 

= 

Control  words. 

IALP 

= 

Control  Variables. 

IDEL 

= 

Delt  time  used  in  reverse. 

IWA 

= 

Weighting  Matrix  indicator. 

IWAI 

= 

Weighting  Matrix  data. 

CTABUB 

= 

Control  variable  bounds  data. 

INDFWT 

= 

Number  of  constraints. 

IPARTPS 

= 

Terminal  partials. 

IK 

- 

Subscript  used  in  storing  data. 

IENTRY 

= 

Entry  point  to  subroutine  UNPART. 

Subroutines  called  from  this  routine  include  IZUNPK  and  normal  FORTRAN 
I/O  routines. 


kh2 


it.  MIMINR  -  Integration  Routine  for  REV 


PatEsaa 

This  routine  is  essentially  the  same  as  MIMINF.  MIMINR  is  used  for  the 
reverse  trajectory.  It  does  not  contain  entry  point  5  for  truncation  error 
estimation  and  step  ciae  control  since  it  is  assumed  that  fixed  step  integra¬ 
tion  will  always  be  used  in  the  reverse  trajectory. 

Method 

The  relationship  of  MIMINR  to  REV  is  analogous  to  the  relationship  of 
MIMINF  and  EXE. 

Remarks 

The  MIMINF  write-up  should  be  consulted  for  more  detailed  information. 


5.  WMA  -  Weighting  Matrix  Routine 


ffyp°?e 

To  provide  optional  methods  for  confuting  the  inverse  weighting  matrices 
(W1)  and  (U_1) 


Usage 

CALL  WMA  (IEMTRY) 


This  routine  follows  the  entry  point  pattern  of  ADJEQ.  Several  options 
are  available.  W”1  and  U“^  are  determined  by  the  following  inputs: 


INDICATOR 

NOMINAL 

DESCRIPTION 

INDWMA 

0 

Basic  option  indicator. 

IWCYCL 

0 

Starting  matrix  indicator. 

IWDELT 

0 

Periodic  matrix  indicator. 

WAI 

0. 

Basic  constant  input  array.  WAI  i3  an  array  of 
six  values. 

WBI 

C. 

Basic  constant  input  array.  WBI  is  an  array  of 
six  values. 

UMATX 

1. 

Basic  initial  control  variable  input  array  UMATX 
is  an  array  oi‘  fifteen  values. 

In  the  following  description: 

The  subscript  i  runs  from  1  through  MCONT. 

The  subscript  j  runs  from  1  through  INDIOP. 
The  subscript  K  runs  from  1  through  MCONT. 
MCONT  =  number  of  control  variables. 

INDIOP  =  number  of  initial  control  variables . 


SINTLG.  =  total  integral  of  X  G 
1  i 

t  =  time. 

INDWMA  =  0 

U)  KjJ  =  1. 

(t.)  Uj-1  =  UMATXj 


LL6 


INDWMA  =  1 

(a)  when  NCYCLE  s  IWCYCL  -  1  : 


i,i 

(b)  when  NCYCLE  >  IWCYCL  -  1,  the  matrix  is  time  -  varying: 

=  WAI.  +  KBE  •  t 
i,i  i  i 

(c)  U"1  =  UMATX 

J  J 

INDWMA  =  2 


(a)  when  NCYCLE  £  IWCYCL  -  1  : 

"i,i  x- 

(b)  when  NCYCLE  >  IWCYCL  -  1  and  IWDELT  i  0  and  NCYCLE  is  not  a  multiple 
of  IWDELT: 


(c) 


(d) 


when  NCICLE  >  IWCYCL  -  1  and  IWDELT  =  0  or  IWDELT  i  0  and  NCYCLE  is 
a  multiple  of  IWDELT  and  no  previous  cycle  has  beer  run: 


when  NCYCLE  >  IWCYCL  -  1  and  IWDELT  =  0  or  IWDELT  i  0  ana  NCYCLE  is 
a  multiple  of  IWDELT  and  a  previous  CYCLE  has  been  run: 


WAI .  +  WEL  •  ^  |  SINTER  j  /  |  SINTEC^  | 

*t~l  * - * - 

(MCONT+l) 

where  SINTEG^  =  J^o  j\^Gjr  j  St  from  the  previous  cycle, 
(e)  U’1  =  UMATX 

J  J 

INDWMA  =  3 


(a) 

when  NCYCLE 

W_1=  1 
wi,i  x* 

(b) 

when  NCYCLE 
of  IWDELT: 

“Li  - 

s  IWCYCL  -  1 

>  IWCYCL  -  1  and  IWDELT  i  0  and  NCYCLE  is  not  a  multiple 


LLt 


(c)  when  NCYCLE  *  IWCYCL  -  1  and  IWDELT  *  0  or  INDBLT  i  0  and  NCYCLE  is 
a  multiple  of  IWDELT,  the  vH-  matrix  is  time  -varying: 


(d) 
INDWMA  « 

(a) 

(b) 


(c) 
INDWMA  = 

(a) 

(b) 


\  •  Wj 


2  •  (MOONT  +  1  ) 


where  w.  =  WAI,  +  WAI,  •  B  , 
•*  4  h 

W  =  WAI^  +  WAI  •  _ i 


\  G  I 
i1 


B  =  max  value  of/]!  G  on  the  previous  cycle. 
T  K 

h  =  instantaneous  value  of  ^  A  G  , 


U"1  =  UMATX 
J  J 


<f>Q  K 


when  NCYCLE  *  IWClU.  -  1 

w"1  -  1. 

1,1 

wien  NCYCLE  >  INCYCL  -  1 

W."1  =  6., 

-  "  1 


1,1 

where  J,  -  0,  -anleee  i  -  divlslon  +  1,  in  which 

case  5,  =  1.  lof  (~j|i  by  MCONT  J 

This  allows  the  user  to  work  with  one  control  variable  at  a  time, 
staying  with  each  for  IWDELT  cycles  at  a  time. 

UT1  =  UMATX 
J  Cl 


when  NCYCLE  4  IWCYCL  -  1,  or  no  previous  cycle  has  been  run,  the  W*’1 
matrix  is  time -varying: 

W71.  =  WAI.  +  WBI.  •  t 
1,1  i  i 

when.  NCYCLE  >  IWCYCL  -  1,  and  a  previous  cycle  has  been  run,  the  W-^ 
matrix  is  time-varying: 

The  calculation  of  this  W”1  matrix  is  somewhat  complex. 

For  each  new  cycle  a  normalizing  factor  W  is  computed  by  the  formula 

tr 
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DALPACK  -  Block 


Routine  for  A  1 s 


Purpose: 

To  store  data  in  large  arrays  to  eliminate  unnecessary  I/O. 

Method: 

Data  is  stored  in  a  large  array  until  it  has  been  filled  before  being 
output  on  tape. 

Usage: 

Linkage  to  this  routine  is  accomplished  vi,\  the  statement 
CALL  DALPACK  (lWGTFO)IT,NDUMMT,INDFMT>:iCC»JT,IWGTSO>IALPHA) 


rWGTFO 


arrays  used  in  the  control  program. 


IWGTSO 


arrays  used  in  the  control  program. 


TIME. 


NDUMMY 


control  word  generated  in  reverse 


INDPMT 


lumber  of  constraints. 


MCCNT 


number  of  control  variables. 


IALFHA 


alpha  point  in  CTABLS. 


Remarks: 


Weighting  matiix 


ILTAP 


Tape  being  used 


Normal  I/O  routines  are  called. 


i 


i 


DAL  PACK 


1*5*» 
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7.  FLUSH  -  BUFFER  FLUSH  ROUTINE 


Purpose 

To  flush  the  ILTAP  buffer  at  the  end  of  the  reverse  trajectory. 
Usage 

CALL  FLUSH(ILTAP) 


FLUSH 


Renter  } 

i 


8.  IZUNPK  -  Switch  Testing  Routine 


Purpose : 

The  routine  tests  a  set  of  switches  to  see  if  the  argument 
should  he  set  to  zero  or  a  number  should  he  pulled  out  of 
an  array. 

Method: 

A  set  of  switches  has  been  preset  hy  another  routine  and 
IZUNPK  tests  these  switches  and  resets  all  arrays  in  proper 
order . 

Usage : 

Entry  is  made  to  this  routine  hy  the  following  statement: 
CALL  IZUNPK(IA) 

where 

IA  =  The  argument  to  he  set  hy  the  routine 
No  other  routines  are  called  hy  this  subroutine 


SECTION  IX 


PROGRAM  GRAPH 


A  program  has  been  set-  up  in  the  program  as  a  data  gathering  chain  for 
plotting  purposes.  The  CDC  280  plotting  package  set  up  at  AFWL  was  used  in 
checking  out  the  program.  The  basic  part  of  the  segment  is  still  in  the 
program.  To  use  the  plotting  equipment,  it  is  only  necessary  to  provide  the 
additional  subroutines,  normally  available  on  the  600C  series  computers, 
which  output  information  to  the  280  for  photographing  and  displaying  at  the 
console.  A  preliminary  report  on  the  CDC280  has  been  included,  which  gives 
detailed  descriptions  of  the  routines,  including  purpose,  operation,  usage 
and  examples. 


CDC2S0 


PRELIMINARY  REPORT 


Some  of  the  routines  herein  described  were  originally  developed  for  use 
at  AFWL.  Most  of  the  report  was  taken  from  "CRT  Plotting  Routines  in  use  at 
LRL-Livermore"  written  by  Judith  D.  Ford  and  Marilyn  J.  Welsch  (UCKL-14427-T ) , 
sincf  many  of  the  routines  are  the  same  in  name,  as  well  as  effect,  as  ohose 
in  use  at  LHL. 


ABSTRACT 

This  report  describes  a  syste-  of  plotting  routines.  There  FORTRAN 
routines  provide  a  flexible  package  for  point,  line,  and  character  plotting 
via  a  CDC230  display  device. 


INTRODUCTION 

This  paper  describes  the  subroutines  available  on  the  6600  which  output 
o  the  280.  These  routines  generate  data  in  a  buffer  in  the  6600  central 
memory.  A  peripheral  processing  unit  (PRJ)  clears  the  buffer  and  stores  the 
data  on  file  named  -FILMFL-.  At  the  completion  of  the  run  a  PPU  sends  this 
file  to  the  CDC280.  The  information  is  then  photographed  at  the  recording 
console  (or  displayed  at  the  operators  option).  The  film  is  then  developed 
and  made  ready  for  distribution. 

This  report  gives  detailed  descriptions  of  the  280  routines,  including 
purpose,  operation  usage,  and  examples.  The  routines  are  separated  into  the 
following  classes: 

1.  Mapping  Routines: 

These  routines  set  up  scale  factors  for  converting  the  users  coordinates 
to  the  280  raster  point  coordinates  (Raster  point  defined  later).  These 
routines  may  also  draw  scales  with  grid  lines  or  short  marks  along  the  axes. 

2.  Arrow.  Line,  and  Point  Plotting  Routines: 

These  routines  provide  the  facility  for  plotting  various  types  of  curves. 

3 .  Character  Plotting  Routines : 

These  routines  provide  the  facility  for  plotting  alphanumeric  information. 
/*.  Absolute  Plotting  Routines : 

These  routines  position  the  beam  independent  of  the  scaling  defined  by 
the  mapping  routines. 


5.  Utility  Routines : 


These  routines  give  the  facilities  for  frying,  and  initializing  the 
plot  package. 

6.  Internal  Routines: 

internal  routines  perform  various  functions  necessary  to  the  operation 
of  the  system,  and  the  user  is  normally  not  aware  of  their  exi  scene.*. 

The  CDC280  plane  is  defined  to  be  a  (1021  by  1024)  square  of  addressable 
points  on  the  face  of  a  cathode  ray  tube  (CRT).  These  points  are  called 
raster  points.  Information  is  displayed  by  unblanking  the  CRT  beam.  The 
beam  may  be  moved  to  a  new  position  without  unblanking  (i.e.  without  plotting 
a  line).  Points  may  only  be  positioned  at  a  raster  point.  Lines  may  only  be 
drawn  between  two  raster  points  (i.e.  the  beam  unblanked  between  these  two 
raster  points  may  or  may  not  intersect  ether  raster  points. 

In  the  following  description  of  the  280  routines,  it  is  assumed  that  all 
arguments  are  given  in  the  same  mode  as  the  dummy  arguments,  using  the  standard 
FORTRAN  conventions  for  the  names  of  integer  and  floating  point  variables. 

The  dummy  arguments  spelled  -DUM-  are  not  used  by  the  routine.  These  arguments 
are  reserved  in  some  cases  for  future  options. 

For  the  purposes  of  these  routines  this  280  plane  is  regarded  as  having 
the  usual  X,  T  cartesian  coordinates,  both  of  which  range  from  0.  to  1.  with 
the  origin  at  the  lower  left  corner.  If  no  mapping  routine  is  called  all 
coordinates  for  the  plotting  routines  are  assumed  to  be  between  0.  and  1. 


MAPPING  ROUTINES 

This  group  of  routines  makes  it  unnecessary  for  the  user  to  scale  his  own 
numbers  for  plotting  on  the  280.  This  is  accomplished  by  establishing  a  map¬ 
ping  from  the  users  coordinate  plane  onto  some  portion  of  the  280  plane.  This, 
by  the  way,  allows  more  than  one  graph  to  be  plotted  on  a  frame.  CALL  MAP 
(HON,  XMAX,  TMIN,  YMAX,  XMI,  XMA,  YM1.  YMA).XMIN,  XMAX,  YMIN,  YKAX  are  the 
users  maximum  and  minimum  cartesian  coordinates. 

XMI,  XMA,  YKI,  YMA  are  the  maximum  and  minimum  coordinates  of  the  280 
plane  desired  to  be  used. 

This  description  encompasses  a  group  of  twelve  routines,  each  of  which 
established  a  mapping  from  the  rectangle  in  the  users  plane  with  comers 
(XMIN,YMIN),  (XMAX,TMA2)  onto  the  rectangle  in  the  280  plane  with  corners 
(XMIjYMl),  (XhA,YMA).  Unless  reset,  this  mapping  applies  to  all  subsequent 
plotting,  except  the  absolute  plotting  routines. 

Linear  mappings  are  established  by  -MAP-,-MAPG~,  and  -MAPS-. 

MAP  established  a  mapping  only 


MAFG  plots  a  grid  with  scale  lumbers. 

MAPS  plots  a  rectangle  with  scale  numbers  and  short  marks  along  the  axes. 

The  suffixes  -LL-,  -SL-  and  -LS-  may  be  used  with  any  of  -MAP-,  -MAPS-  or 
-MAPS-  to  modify  the  mapping  as  follow: 

LL  establishes  a  log-log  mapping. 

SL  establishes  a  semi-log  mapping  with  the  X-axis  linear. 

LS  establishes  a  semi-log  mapping  with  the  Y-axis  linear. 

The  cycles  are  determined  automatically.  Examples: 

CALL  MAP  (0.,1.,0.,1.,0.,1.,0.,1. ) 
sets  up  a  linear-linear  mapping, 

CALL  MAPSLL  (1 . ,10. ,1. ,10COOO. , . 1, .999, .1, .999) 
sets  up  a  1  cycle  by  5  cycle  scale,  and 

CALL  MAPGSL  (•  i,00.  ,10.  ,1.  ,100. ,  .1, .  5,  .1,  .999) 
sets  up  a  linear  by  2  cycle  grid. 

The  mapping  function  is  initially  set 

XMIN  -  YHIN  -  XMI  =  YMI  =  0.  and  XMAX  =  YMAX  =  XMA  =  YMA  1. 

The  scale  numbers  will  overplot  the  grid  lines  if  SMI  or  1MI  is  less  than 
.078125  for  linear  scaling  or  .043  for  logarithmic  scaling. 

Plotting  routines  specifying  point(s)  out  of  the  defined  user  domain  are 
handled  in  two  ways: 

1.  If  the  scaled  coordinate  is  within  the  280  range  then  the  routine  is 
executed  at  the  scaled  coordinate. 

2.  If  the  scaled  coordinate  i3  outside  of  the  280  range  then  this  coordinate 
is  projected  on  the  nearest  extreme  edge  and  the  routine  executed  there. 

An  error  message  is  printed  whenever  a  mapping  routine  is  called  with  XMIN  ^ 
XMAX,  IMIN  J  YMAX,  XMI  s  XMA,  YMI  ^  YMA  or  a  log  maoping  is  called  with  a  non- 
pcsitive  argument. 

CALL  MAPF( RMAX,  XMI,  XMA,  YMI), 

RMAX  is  the  maximum  radius  for  the  user's  polar  coordinates. 

XMI,  XMA,  YMI  are  the  same  as  in  -MAP-  above. 

-MAPP-  establishes  a  mapping  from  the  circle  of  radius  RMAX  in  the  user's 
polar  coordinate  plane  into  the  square  in  the  230  plane  with  comers  (XMI,TMl), 
(XMa,YMa)  where  YMA  =  YMI  +  < XMA  -  XMI ) . 


Vertical  and  horizontal  reference  axns  will  be  plotted,  with  scale  numbers 
along  the  zero-degree  axis,  and  with  the  origin  at  the  ''enter  of  the  square. 

All  (X,Y)  pairs  given  in  later  plotting  routines  will  be  interpreted  as  polar 
coordinates  (R,0)  until  another  mapping  routine  i3  called. 

CALL  MAPX  (XMIN,  XMAX,  MIN,  YMAX,  XMI,  XMA,  YMI,  YMA,  i) 

I  is  an  integer  1  s  I  s  13. 

The  remaining  arguments  are  the  same  as  in  -MAP-  above. 

-MAPX-  allows  the  mapping  to  be  specified  at  execution  time,  according  to 
the  value  of  I.  A  call  to  -MAPX-  is  equivalent  to  a  call  to  one  of  the  above 
mapping  routines,  with  the  integers  1-13  corresponding  to  these  routines  in 
the  following  order: 

MAP,  MAP3L,  MAPLS,  MAPLL,  MAPG,  MAPGSL,  MPAGLS,  MAPGLL,  MAPS,  MAPSSL, 
MAPSLS,  MAPSLL,  MAPP. 

When  I  =  13  the  arguments  in  MAPX  correspond  to  MAPP  as  follows:  CALL 
W °X  (DUM, RMAX, DUM, BUM, XMI , XMA , YMI , DUM, 13 ) . 


ARROW,  LINE  AND  POINT  PLOTTING  ROUTINES 
Order  Alphabetically 

These  routines  may  be  used  to  display  and/or  photograph  data  in  graphic 
form.  The  user's  (X,Y)  coordinates  in  these  plotting  routines  are  scaling  the 
scale  factors  set  up  by  a  mapping  routine.  If  no  mapping  routine  has  been 
called,  these  coordinates  are  assumed  to  be  in  the  range  0.  to  1. 

CALL  SETBEAM  (X,Y) 

X  is  the  abscissa  at  which  the  beam  is  to  be  positioned. 

Y  is  the  ordinate  at  which  the  beam  is  to  be  positioned. 

-SETBEAM-  causes  the  beam  to  be  positioned  at  (X,Y)  without  unblanking. 

CALL  LINEQPT  ( DUM, IN  TEN) 

DUM  is  a  dummy  argument. 

INTEN  is  the  intensity  at  which  all  arrows,  lines,  points,  and  vectors  will 
be  plotted. 

0  low  intensity  (fine  line). 

1  high  intensity  (heavy  line). 


-LINEOPT-  is  initially  set  to  lew  intensity. 

The  mapping  routines  reset  -LINEOPT-  f  om  witnin. 

CALL  POINT  (X,Y) 

X  and  Y  are  the  coordinates  of  a  point. 

-POINT-  will  plot  a  point  at  (X,Y)  with  intensity  set  by  -LINEOPT-. 

CALL  LINE  (X1,Y1,X2,Y2) 

(Xl,Yl)  and  (X2,Y2)  are  the  coordinates  of  two  points.  -LINE-  will  sweep 
a  line  from  (X1,Y1)  to  (X2,Y2)  with  intensity  set  by  -LINEOPT-. 

CALL  LINEP  (X1,Y1,X2,Y2,K) 

(X1,Y1)  and  (X2,Y2)  are  the  coordinates  of  two  points. 

K  is  an  integer. 

-LINEP-  plots  a  line  consisting  of  every  Kth  raster  point  between  (XI, Yl) 
i  (X2,Y2).  Intensity  is  set  by  LINEOPT 

CALL  VECTOR  (X2,Y2) 

(X2,Y2)  is  the  coordinate  of  a  p  'Lnt. 

-VECTOR-  sweeps  a  line  from  the  current  beam  position  to  (X2,Y2)  with 
intensity  set  by  LINEOPT. 

CALL  POINTS  (X,Y,N) 

X  and  Y  are  the  names  (first  word  addresses)  of  arrays  of  the  X  and  Y 
coordinates  of  points. 

N  is  the  number  of  points. 

-POINTS-  plots  the  N  points  given  by  the  arrays  X  and  Y.  The  intensity 
is  set  by  -LINEOPT-. 

CALL  ARROW  (XI,  Yl,  X2,  Y2,  l) 

(Xl,Yl)  and  (X2,Y2)  are  coordirates  of  two  points. 

I  is  an  integer  i  1. 

-ARROW'  sweeps  a  line  from  (Xl,Yl)  to  (X2,Y2)  and  draws  an  arrowhead  at 
(X2,Y2).  The  arrowhead  measures  I  raster  points  in  length.  I  =  10  is  a 
mal  sice  arrowhead.  The  intensity  is  set  by  -LINEOPT-.  The  final  beam 
position  is  (X2,Y2). 
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CALL  LINES  (X,Y,V) 


X  and  Y  are  the  names  (first  word  addressee )  of  arrays  of  the  X  and  1" 
coordinates  of  points. 

N  is  the  number  of  points. 

-LINES-  connects  the  N  points  given  by  the  arrays  X  and  Y  with  line 
segments.  The  final  beam  position  is  (X(N),Y(N)).  The  lines  are  swept  »lth 
intensity  as  set  by  -LINE0PT-. 

Order  Alpliabeiicaily 


CHARACTER  PLOTTING  ROUTINES 

This  group  of  routines  allows  the  plotting  of  alphanumeric  information, 
either  to  label  the  various  curves,  lines,  etc.,  produced  by  the  point  and 
line  plotting  routines,  or  as  more  versatile  alternative  to  an  off-line 
printer  (this  is  distinct  from  the  -FILMPR-  option.  -FIWPR-  merely  simulates 
the  printer).  This  versatility  dsrites  from: 

1.  The  capability  of  positioning  a  lire  of  alphanumeric  information  any¬ 
where  on  the  current  frame  (vs.  the  top-to-bottom  progression  of  a  page  printer'. 

2.  The  two  orientations,  two  intensities  and  four  character  sizes  that 
are  available,  and 

3.  The  expanded  character  set,  which  includes  many  nc i-key  punchable 
characters,  (not  immediately  available) 

CALL  0  HARO  FT  (  DUM,  DUM,  ISIZ5,I0R,  DUM) 

ISIZE  =  0  miniature 

1  small 

2  medium 

3  large 

IOR  =  0  horizontal  (0°) 

1  vertical  (90°) 

-CHAROPT-  specifies  the  size  (ISIZE)  and  orientation  (IOR)  of  all  characters 
to  be  plotted.  The  option  is  changed  by  a  second  call  to  -CHAROPT-. 

The  maximum  string  length  and  line  limits  for  the  various  lizes  are: 
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miniature 

small 

medium 

large 


Symbols  /Line 
137 
86 
64 
43 


Line  s /Frame 
64 
43 
32 
22 


In  the  character  plotting  routines,  the  280  plane  is  considered  to  he  a  grid 
of  rectangles,  each  containing  one  character  of  the  chosen  size.  The  number  and 
dimensions  of  these  rectangles  depend  on  the  character  size  and  orientation. 
Characters  are  drawn  within  the  rectangle.  The  rectangle  is  positioned  such  that 
the  current  beam  position  is  in  the  lower  left  comer  of  the  rectangle.  After 
the  character  has  been  drawn  the  beam  is  positioned  in  the  lower  right  comer  of 
the  rectangle. 


CALL  SYMBOL  (a)  or  CALL  SYMBOi.  (tfH...$.) 

A  is  the  first  word  of  BCD  data.  The  end  of  string  is  designated  by  $. 

MH...$.  is  a  Hollerith  text  of  M  characters.  The  last  two  characters  must 
be  $.,  which  designates  the  end  of  string. 

-SYMBOL-  encodes  BCD  data  into  the  280  character  set  and  plots  it  starting 
at  the  current  beam  position  with  options  as  given  by  -CHAR0PT-. 

If  $.  does  not  appear  at  the  end  of  string  -SYMBOL-  attenqpts  to  plot  words 
up  to  the  field  length. 

CALL  NUMBER  (X,F) 

X  is  a  variable  (fixed  or  floating). 

F  i3  any  allowable  FORTRAN  format  £  10  characters. 

-NUMBER-  converts  the  variable  X  under  the  given  format,  determines  the 
field  width  and  plots  the  resulting  characters  as  -SYMBOL-  would. 


Example: 


X  =  1.E5 

CALL  NUMBER  (X,5HE10.2) 
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would  plot 


bbbl.00E05 

and 


I  =  42 

CALL  NUMBER  (l,  9H4HIN  =  ,13) 


would  plot 

INb  =  b42 


ABSOLUTE  PLOTTING  ROUTINES 


Order  Alphabetically 

These  routines  position  the  beam  independently  of  the  defined  mapping 
function.  The  aiguments  range  from  0.  to  1.  Out  of  range  points  are  projected 
or:  the  nearest  extreme  edge  of  the  plotting  areas. 

CALL  ABSBEAM  (X,Y) 

X,Y  are  coordinates  of  a  point. 

-ABSBEAM-  causes  the  beam  to  be  positioned  at  (X,Y)  without  unblanking. 
CALL  ABSVECT  (X,Y) 

X,Y  are  coordinates  of  a  point, 

-ABSVECT-  draws  a  rector  from  the  last  beam  position  to  (X,Y). 

CALL  ABSLEIE  (XL,  Yl,  12,  Y2) 

(XI, Yl)  ,  (X2,Y2)  are  coordinates  of  two  points. 

-ABSLINE-  draws  a  line  from  (Xl,Yl)  to  (X2,Y2). 

CALL  ABS™  (X,Y; 

X,Y  are  coordinates  of  a  point. 

-ABSPT-  plots  a  point  at  (X,Y). 
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UTILITY  ROUTINES 


CALL  INIT28C 

-riIT280-  initializes  the  280  routine*  and  must,  be  called  before  any  of 
the  plotting  routines. 

CALL  FRAME 

-FRAME-  advances  the  microfilm  to  the  next  blank  frame. 

INTERNAL  ROUTINES 

Tliese  routines  art;  essential  to  the  plotting  routines,  but  are  not  called 
directly  by  the  user,  only  by  other  routines  in  the  system.  -GRID80-  is  called 
by  the  mapping  routines  which  draw  scale  marks  or  grid  lines  and  label  them 
with  scale  numbers. 

-GTRF-,  -GEQF-,  -EQLF-,  -SEQF-,  -SMLF-,  -UNQF-,  and  -2GTRF-  are  functions 
which  are  used  in  -GRID80-.  Each  has  two  arguments  and  returns  a  value  of  1 
if  the  first  argument  stands  in  the  indicated  relation  to  the  second,  a  value 
f  0  otherwise. 


FUNCTION 

RELATION 

GTRF 

greater  than 

GEQF 

greater  than  or  equal  to 

EQLF 

equal  to 

SEQF 

less  than  or  equal  to 

SKLF 

less  than 

UNQF 

not  equal  to 

These  functions  call  -ZGTRF-  to  establish  the  value. 

-TEST-  is  called  by  the  mapping 'routines  to  establish  legal  arguments . 

-ADJUST-  is  called  by  some  of  the  plotting  routines  to  convert  non-linear 
arguments  to  linear  before  scaling. 

-LENGTH-  is  called  by  number  to  count  the  number  of  characters  to  be 
plotted . 

-STREND-  called  by  symbol  to  test  for  end  of  string  symbol. 

-PSCALE-  is  called  by  the  mapping  routines  to  establish  the  scaling. 
-PIDTQ-  is  called  by  the  plotting  routines  and  forms  the  280  instructions. 
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CDC  LIBRARY 
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This  is  the  segment  for  plotting  curves  from  the  forward  trajectory  on 
microfilm.  GRAPH  is  called  by  CTLS  before  the  call  is  made  to  REV.  Therefore 
when  GRAPH  is  finished  it  calls  REV.  However  CTLS  calls  GRAPH  if  and  only  if 
there  are  plots  to  be  made.  The  number  of  core  locations  reserved  for  setting 
up  the  tables  for  plotting  may  vary  depending  on  the  available  core.  In 
general,  this  array  (POINTS)  should  De  dimensioned  as  large  as  possible,  s' 
that  GRAffl  takes  up  almost  as  much  core  as  the  largest  of  the  remaining  segments. 
PAXPOT  is  the  value  at  which  POINTS  is  dimensioned.  To  vary  the  dimension  of 
POINTS  it  is  necessary  only  to  change  the  dimension  statement  for  POINTS  and 
the  data  statement  for  F.AXP0T  in  GRAPH  proper. 

GRAPH  drives  the  plotting  computations  by  calling  PAPLT  to  plot  the 
regular  trajectory  curves  (those  specified  in  the  PLOTS  array)  and  PRFLT  to 
plot  the  F  and/or  G  time  history. 
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DATA  FOR  PLOTTING 


Two  types  of  plotting  are  possible  —  printing  along  with  the  nomal 
output,  or  by  plotting  on  microfilm. 

Printer  Plotting:  (done  in  CTLS  segment  from  DAI.CAL) 

Example:  INDPLT  INT  39,39 

The  a  anci/or  8  a  stage  time  history  are  plotted  for  each  major  stage  for  the 
respective  cc.itrol  variables  if  the  corresponding  two  digit  integer  of  the 
INDPLT  array  is  non-zero  and  if  the  second  digit  is  a  multiple  of  the  cycle 
number.  The  first  digit  may  be  either  1,  2,  or  3: 

1  -  a  history  only  (and  history  if  INDVMA  «=*!>) 

2  -  8a  history  only  (and  VT^  history  if  INDVMA  "5) 

3  -  both  a  and  8a  history  (and  V1  history  if  INDWMA  “5) 

Microfilm  Plotting:  (done  in  GRAPH  SEGMENT) 

Example: 

PLOTS  BCD  6  TIMEbbHGC77Fi,ALPHDbAMACHbTIKEbbGAM7D 
INDFAG  3 

IGCONT  2 

The  definition  of  the  abscissa  and  ordinate  variable  of  each  plot  are  listed 
successively  on  the  PLOTS  card  (abscissa,  ordinate,  abscissa,  ordinate,  etc.), 
A  plot  of  up  to  six  passes  of  each  cycle  will  be  made  for  a  given  curve,  all 
passes  for  a  cycle  for  a  given  curve  will  appear  on  the  same  graph.  Values 
are  saved  on  tape  for  plotting  at  every  (lGCONT+l)th  valid  integration  step. 


INDFAG  0  do  not  plot  partials 

1  plot  the  F  matrix  vs.  time 

2  plot  the  G  matrix  vs.  time 

3  plot  both  the  F  matrix  and  the  G  matrix  vs.  time. 
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SEGMENT  GRA  P  H 


7.  PAPLT  -  Paraggtfr  Collection  Routine 
Purpose: 

To  read  TAPE17 ,  assemble  the  poirts  to  be  plotted  into  arrays  and  call 
the  routine  to  do  the  actual  plotting  (PLTCUR). 

Method : 

TAPE17  will  be  rewound  and  re-read  if  there  is  not  enough  room  to 
accommodate  all  the  plots  at  one  time.  Hence,  if  there  is  room  to 
accommodate  just  one  plotting  array,  all  plots  will  eventually  be  made; 
if  there  is  not  room  for  one  plot  then  no  plots  will  be  made.  PAPLT 
must  be  compatible  with  PLTS  of  the  EJE  segment  and  with  the  initializa¬ 
tion  done  in  MAIN1  for  the  plotting  variables.  The  format  of  the  POINTS 
array  appears  on  the  flow  crart ;  PAPLT  fills  this  array  as  it  reads  TAPE 
17  until  the  last  point  of  the  last  pass  of  the  forward  trajectory  is 
reached.  PAPLT  does  not  fill  up  the  POINTS  array  with  those  plots  that 
have  already  been  made  (i.e.  on  previous  passes  through  TAPE17  ).  Also, 
PAPLT  does  not  fill  up  the  POINTS  array  with  those  plots  for  which  it 
does  not  have  room  on  the  current  pass  through  TAPE17. 

The  following  is  a  description  of  the  important  variables  that  are  used 
internally  to  the  PAPLT  routine: 

INDNTD  the  number  of  plots  to  be  made  on  a  given  read  through 
TAPE17 

JFLT  an  array  of  indicators;  a  function  to  the  LFLT  array 

KRDCM  the  maximum  number  of  plots  that  will  fit  into  the 

POINTS  array 

MMPT  an  array  of  base  subscripts  for  each  pass  (for  the  points 
array) 

NPAST  the  pass  number  read  from  tape 
I POINT  the  point  number  read  from  tape 

KPASS  min  (NPASS,6) 

NFLT  an  array  to  indicate  if  the  i'th  plot  has  been  made 

KPLT  array  of  indicators;  may  change  for  each  read  through  TAPE17 

NFLTS  the  number  of  plots  that  have  been  made 

For  each  plot  that  is  made,  there  will  be  KPASS  curves  appearing  on  the 
same  graph,  one  for  each  pass  of  the  forward  trajectory.  The  plots  to 
be  made  are  defined  completely  in  the  data  on  the  7L0TS  card. 
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8.  PRPLT  -  Partials  Collection  Routine 


Purpose : 

To  read  ILTAP,  assemble  the  points  to  be  plotted  into  arrays,  and  call  the 
routine  to  do  the  actual  plotting  (PLTCUR),  ILTAP  contains  the  time 
histories  of  the  F  and/or  G  matrices. 

Method: 

The  organization  of  this  routine  is  very  similar  to  that  of  PAPLT.  The 
differences  that  do  exist  make  this  the  less  complicated  routine.  The 
elements  of  the  F  and/or  G  matrices  are  always  plotted  as  a  function  of 
time.  PHPKLT  will  make  several  passes  through  tape  ILTAP  in  order  to 
get  all  the  plots  if  it  is  necessary  to  do  so.  For  each  element  of  the 
F  and  G  matrix  one  plot  will  be  made  (consisting  of  just  one  curve). 

The  format  of  the  POINTS  array  appears  on  the  flow  chart;  it  is  different 
than  that  from  the  PAPLT  routine. 

In  addition  to  the  variables  described  for  PAPLT,  the  following  variable 
definitions  are  important: 

NF  number  of  plots  to  make  from  the  F  matrix. 

NG  number  of  plots  '  •  make  from  the  G  matrix. 

INL  I  respectively,  the  left  and  right  limit  subscripts  for 

INR  |  the  array  that  is  road  from  tape;  any  variable  whose 

subscript  in  the  array  lies  within  the  interval  [lNL,INR] 
will  be  plotted  for  the  current  read  through  tape  ILTAP. 
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PLTCUR  -  Microfilm  Plott 


Purpose: 

Tb  plot  a  set  of  curves  on  one  graph;  the  output  is  to  be  to  microfilm. 
Usage: 

CALL  PLTCUR  (Nl, N1FTS, XI, II , CODEX, CODEIA , CODEXES ) 

where 


N1  Number  of  curves  to  be  plotted  on  a  graph. 

N1PTS  An  array  containing  the  number  of  points  for  the 

respective  curves. 

H  An  array  containing  the  abscissa  values  for  each  curve. 

II  An  array  containing  the  ordinate  values  for  each  curve. 

CODEX  A  Hollerith  code  word  for  identifying  the  abscissa;  this 
will  be  placed  under  the  abscissa  axis  on  the  graph. 

CODEIA  1  Hollerith  code  words  for  identifying  the  ordinate;  these  will 
CODETBJ  be  placed  along  the  ordinate  axis  on  the  grar>h 

The  format  of  the  XI  and  II  arrays  oust  conform  to  the  following  standard: 


Points  for  first  Points  for 

curve  second  curve 


Points  for 
last  curve 


XI  or  XI: 


tCLPTSCL) 


N1FTS(2) 


N1PTS  (Nl) 


In  addition  to  identifying  each  plot  with  the  Hollerith  code  words  from 
the  calling  sequence,  PLTCUR  will  put  the  cycle  number,  the  pass  number 
and  the  case  code  in  the  lower  left  hand  corner  of  the  graph.  PLTCUR 
will  put  two  graphs  on  a  frame;  for  any  given  call  to  PLTCUR  the  graph 
for  that  call  will  be  put  at  one  of  these  positions  in  the  frame  depend¬ 
ing  on  the  value  of  the  variable  SHIFT.  If  SHIFTO  the  graph  is  placed 
in  the  first  half  of  a  frame;  if  SHIFT*. 5  the  graph  is  placed  in  the 
second  half.  PLTCUR  updates  SHIFT  to  the  appropriate  value  and  changes 
frames  when  necessary  just  befors  the  return  is  made  to  the  calling 
program. 

All  curves  on  a  given  graph  will  be  made  in  low  intensity  except  the 
last  which  will  appear  in  high  intensity. 

PLTCUR  calls  a  number  of  routines  which  must  exist  in  the  library 
"microfilm  plot  package." 

A  graph  will  not  be  plotted  by  PLTCUR  if  the  maximum  deviation  within  the 
XI  or  II  arrays  is  less  then  10~^. 


CALL  ABSVECTl  H.  J+SHIFT) 
CALI  ABSVECT  (  1 ...  I  SHIFT) 
CEU  ABSVECTl  1..  M+SHIFY) 
CALL  ABSVECT  I  . MFSHIFT) 

T-1 
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PLTCUR  (2) 


>  II I  f(SHIFT  GT.o)go  To  W] 


SHIFT*  5 


CALL  FRAME 


CALL  VICTOR  (X  TtJJ-  V«(j)  ) 


m 


10. 


Dummy  Plot  Routine a 


The  fol loving  dummy  routines  are  included  in  the  deck  so  that  it  may 
be  compiled  on  a  machine  without  attached  CDC  280.  When  using  a 
machine  with  attached  CDC  280  these  routines  should  be  replaced  by  the 
library  routines. 
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SECTION  X 


DIRECTORY 


Purpose: 

T-.  p: -  jvide  a  method  of  reading  input  symbolically.  This  subroutine 
(Blc  J  ed  Data)  has  no  executable  instructions  in  it.  It  is  designed 
me:’e.o  as  a  means  of  getting  data  symbols  loaded  with  the  program. 

No  flow  chart  accompanies  this  write-up. 

Method: 

The  format  cf  the  directory  is  described  here.  The  directory  is  divided 
into  two  parts:  (l)  one  list  is  a  list  of  the  BCD  symbols.  (2)  the 
second  paid  is  made  up  of  a  set  of  subscripts  which  corresponds  to  tie 
BCD  words. 

For  each  variable  name  desirsd  in  the  directory  there  must  be  a  corres¬ 
ponding  subscript.  Thus,  each  variable  in  the  directory  must  be  i.' 
COMMON  in  order  that  a  subscript  may  bs  assigned  at  assembly  time. 

Usage: 

This  subroutine  may  not  be  "USED"  by  the  programmer .  Rather,  it  is 
referred  to  by  subroutines. 
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1 .  CTAE  -  Parameter  Optimization  Control  Program 


Furpose : 

To  control  trajectory  and  optimization  calculation  sequence  when 
the  parameter  optimization  option  is  used. 

Method: 

The  parameter  optimization  algorithms  define  a  control  parameter 
vector.  The  control  parameter  vector  elements  are  equated  to 
specific  trajectory  data  input  parameters  which  have  been  flagged 
through  the  "PAR"  input  option  in  READA.  A  trajectory  is  generated 
by  a  call  to  CHAIN(2),  and  the  resulting  trajectory  payoff  and 
constraint  functions  are  retrieved  for  use  in  the  parameter  opti¬ 
mization  procedure. 

CTAE  also  controls  a  multiple  extremal  search  procedure  through 
subroutine  WARPS,  and  a  saddle-point  search  procedure  for  solution 
of  "mini-max"  problems  through  subroutine  SADDLE. 

Remarks : 

All  subroutines  employed  in  the  parameter  optimization  procedure 
are  separately  documented  in  Volume  IV  of  the  present  report . 
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